Дана матрица 3x3 надо посчитать и вывести сумму цифр каждого столбца
Категория: Delphi/Pascal
2011-09-16 22:10:07
code: #pascal
const n = 3; var a:array[1..N,1..N]of real; // исходный массив s:array[1..N]of real; // массив - суммы по столбцам i,j:integer; begin randomize; for i:= 1 to n do begin for j:= 1 to n do begin a[i,j]:=random(10); write(a[i,j]:2:0,' '); s[j]:=s[j]+a[i,j]; end; writeln; end; writeln; for i:= 1 to n do write(s[i]:2:0,' '); readln; end.
Поделиться: