Вмассиве сформированным случайным образом все элементы =0 заменить числом 28! , нужна постановка программы, блок схема(необязательно) программа,

206

469

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

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

Nottyt

Информатика

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

Var i,n: integer; a: array[1..1000] of integer; begin write('введите кол-во элементов'); read(n); for i: =1 to n do begin a[i]: =random(10); write(a[i]); end; for i: =1 to n do begin if a[i]=0 then a[i]: =28; write(a[i]); end; end.

nozdracheva95

Информатика

4,8(35 оценок)

Program massiv; uses crt; var a: array [0..15] of integer; i: integer; begin for i: =1 to 15 do begin a[i]: =random(100); if a[i]=0 then a[i]: =28; writeln(a[i]); end; end.