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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
