СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ . ПОСЛЕ ЗАМЕНИТЬ ЭТУ ПРОГРАММУ НА ОПЕРАТОР WHILE
СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ . ПОСЛЕ ЗАМЕНИТЬ ЭТУ ПРОГРАММУ НА ОПЕРАТОР WHILE
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы