Меню сайта

Задача №42
Дан целочисленный квадратный массив 10 х 10. Найти сумму максимальных элементов из каждой строки. Предполагается, что в каждой строке такой элемент единственный.
Program dmas_18-
uses crt-
const N=10-
var A: array[1..n,1..n] of integer-
— — i, k, max, Sum: integer-
begin
randomize-
For i:=1 to n do
begin
For k:=1 to n do
begin
a[i,k]:=random(50)- —
write(a[I,k]:4)-
end-
writeln-
end-
Sum := 0-
for i:=1 to n do begin
— max := A[i,1]-
— for k:=2 to n do
— — if A[i,k] &gt- max then —
max := A[i,k]-
— Sum := Sum + max-
end-
writeln(‘Сумма максимальных эл. = ‘,Sum)-
Readln-
end.
Категория: Массивы | Дата: 13.12.12

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