Меню сайта

Задача №32
Дан массив из —nxmэлементов. Найти сумму элементов каждого столбца.
Program -dmas_8-
uses crt-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
s,i,j:integer-
Begin
Randomize-
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10)- —
write(a[I,j]:4)-
end-
writeln-
end-
For j:=1 to m do
Begin
s:=0-
For i:=1 to n do
s:=s+a[i,j]-
writeln (‘Сумма ‘,j,’ Столбца =’,s)-
end-
Readln-
end.
Категория: Массивы | Дата: 16.12.12

Меню раздела
Блок