Задание:
Из 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;
Знаете другой ответ?