Составить программу на паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов . после заменить эту программу на оператор while
mujgan04
3
21.03.2019 02:20
0
Другие вопросы по теме Информатика
irinacoroleva
26.05.2020 12:55
justdoit5
26.05.2020 12:55
89300044
26.05.2020 12:57
Nisson1
20.03.2019 08:10
ириша182300
20.03.2019 08:10
okcanaceninap06wvq
18.12.2021 03:06
мгмлидт
16.11.2020 20:18
alexaste
16.11.2020 20:18
Популярные вопросы
- 2 Find these numbers in the article. What do they refer to?11%2 175-200...
3 - Запиши через запятую следующие числа: а) три целых семнадцать сотых....
1 - люди 1 Which paragraph gives backgroundinformation about the book and...
3 - Думаем и обсуждаем 1. Почему гироскопический датчик важен для работы...
1 - Ч.( 85+ Х) •6-930 скоко будет...
2 - 11-тапсырма. Сын есімнің орнына қолданылып тұрған белгісіздік есімдік...
2 - Дұрыс жауап саны: 2 Шығыс Түркістан мен МәуереннахрЕртіс өзенінен Жетісудің...
2 - 1. Словарная работа: запиши глаголы, вставь окончания, определи спряжение....
3 - Обчислити sin 1270° cos 1140° tg 1860°...
3 - Write some more capabilities of the human brain...
1
var a:array[1..15]of integer;
x,i:integer;
begin
i:=1;
while i<16 do begin
readln(x);
if x<0 then a[i]:=x;
inc(i);
end;
for i:=1 to 15 do if a[i]<0 then writeln(i);
end.