Меню сайта

Задача №31
Дан массив из —nxmэлементов. Найти сумму элементов каждой строки.
Program -dmas_7-
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 i:=1 to n do
Begin
s:=0-
For j:=1 to m do
s:=s+a[i,j]-
writeln (‘Сумма -‘,I,’ Строки =’,s)-
end-
readln-
end.
Категория: Массивы | Дата: 17.12.12

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