Водномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве.

109

258

Посмотреть ответы 2

Ответы на вопрос:

елена1229

Информатика

4,4(50 оценок)

Const nz = 30; var a: array[1..nz] of integer; i,n,k: integer; begin write('введите число элементов n'); readln(n); for i: =1 to n do begin a[i]: = random(100)-50; write(a[i]: 4); end; writeln; for i: =1 to n do begin if a[i]> 0 then begin write(a[i]: 4); k: =k +1; end; end; writeln; write('количество положительных элементов = ',k); end.