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

Question

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

Comments

n и значения элементов массива задавать с клавиатуры, или же можно взять любые числа?

Answer 1

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.