ТутРешу.Ру

СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ…

Задание:

СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 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.




Знаете другой ответ?

Отправить свой ответ