Нарисуй в окне такую цепочку Ю, чтобы были истинными все утверждения:..

112

252

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

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

Ymnusha

Информатика

4,7(2 оценок)

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.