Без чего не получится работать на компьютере

Question

Информатика: Без чего не получится работать на компьютере

Victoriya1234567890 · Accepted Answer

4 а) const n=10; var a:array[1..n] of integer; i,k:integer; begin writeln( Исходный массив: ); for i:=1 to n do begin a[i]:=random(10); write( ,a[i]); end; writeln; for i:=1 to n do begin if ((i mod 2) = 0) then a[i]:=a[i]*2 else a[i]:=a[i]*3; end; writeln( Конечный массив: ); for i:=1 to n do  write( ,a[i]); end. б) const n=10; var a:array[1..n] of integer; i,k:integer; begin writeln( Исходный массив: ); for i:=1 to n do begin a[i]:=random(10); write( ,a[i]); end; writeln; for i:=1 to n do begin...

MOGZ ответил