СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости


Задания
Версия для печати и копирования в MS Word
Задание 25 № 2910

Дан целочисленный квадратный массив 10 x 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы максимальных элементов из каждой строки. Напечатать значение этой суммы. Предполагается, что в каждой строке элемент единственный.

Решение.

PascalBasic
const N=10;

var A: array [1..N,1..N] of integer;

i, k, max, Sum: integer;

begin

{ ввод матрицы N на N}

for i:=1 to N do

for j:=1 to N do

readln(a[i, j]);

 

Sum :=0;

for i:=1 to N do begin

max :=A[i,1];

for k:=2 to N do

if A[i,k] >= max then max := A[i,k];

Sum := Sum + max;

end;

writeln(Sum);

end.

CLS

n = 10

DIM A(n, n)

FOR o = 1 TO n

FOR i = 1 TO n

INPUT A(i, o)

NEXT i

NEXT o

c = 0

FOR i = 1 TO n

s = 0

max = 0

FOR j = 1 TO n

IF s <= A(j, i) THEN max = A(j, i): s = max

NEXT j

sum = sum + max

NEXT i

PRINT sum

END