Question

Дан массив. Напечатать все неотрицательные элементы

Answer 1

const nx=30;
var C:Array[1..nx] of integer;
 i,min,q,n:integer;
begin write('введите кол-во элементов массива');
Read(n);
for i:=1 to n do begin
C[i]:= random(100)-50;
if  c[i]> 0 then begin write(C[i]:4); end;end;
writeln;
for i:=1 to n do write(C[i]:4);
end.