|
|
|
 |
||
|
|
1. Написать процедуры по вводу и выводу массива на экран. Используя эти процедуры создать массив A и массив С. Сформировать массив В=А+С и вывести его на экран program ff; var a,c,b: array [1..5,1..4] of integer; i,j,e,h: integer; procedure vvod(var x:array [1..5,1..4] of integer); begin for j:=1 to 4 do for i:=1 to 5 do x[i,j]:=random(10); end; procedure vivod(var x:array [1..5,1..4] of integer); begin for j:=1 to 4 do begin for i:=1 to 5 do begin write(x[i,j], ' '); end; writeln; end; end; BEGIN randomize; vvod(a); WRITELN('Массив А'); vivod(a); vvod(c); WRITELN('Массив C'); vivod(c); for j:=1 to 4 do for i:=1 to 5 do b[i,j]:=a[i,j]+c[i,j]; WRITELN(' Массив B'); vivod(b); END. |
|
