Задание:
Дан массив из N целых элементов. Определить, есть ли в массиве положительныеэлементы.
Решение:
var a: array[1… 100]of integer; i,n,k: integer; begin read (n); for i: =1 to n do begin a[i]: =random (100); write (a[i],'); end; write; read (k); for i: =1 to n do if (a[i]>0) and (a[i] mod k=0) then write (a[i],') else write ('положительные элементы'); end.
Знаете другой ответ?