Задание:
СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ. ПОСЛЕ ЗАМЕНИТЬ ЭТУ ПРОГРАММУ НАОПЕРАТОР WHILE
Решение:
var a: array[1… 15]of integer; x,i: integer; begini: =1; while i<16 do beginreadln (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.
Знаете другой ответ?