ТутРешу.Ру

Из 16-ти чисел, спросите у пользователя…

Задание:

Из 16-ти чисел, спросите у пользователя, сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли оночетным или отрицательным. (Паскаль)

Решение:

var a: array[1… 16] of longint; i: longint; beginfor i: =1 to 16 doread (a[i]); for i: =1 to n doif (a[i] mod 2=0) or (a[i]<0) then writeln (a[i]); end;




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

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