Найти наибольшее значение среди сумм каждой строки матрицы

@Aerocage · Регистрация: 01.04.2012

дан массив x(n,m) найти наибольшее значение среди сумм каждой строки массива.

помогите пожалуйста,срочно надо !!

@КонецСвета · 15.04.2012, 22:53

Pascal

uses crt;
const n=5; m=6;
var x: array [1..n,1..m] of integer;
    i,j: byte;
    sum,maxsum: integer;
begin
writeln('Дана матрица                 Сумма');
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        begin
        x[i,j]:=random(199)-99;
        write(x[i,j]:4);
        inc(sum,x[i,j]);
        end;
        if i=1 then maxsum:=sum else
           if sum>maxsum then maxsum:=sum;
    writeln(sum:10);
    end;
writeln('Макс. сумма=',maxsum);
end.

@Aerocage 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 5
		1
	Найти наибольшее значение среди сумм каждой строки матрицы 15.04.2012, 22:39. Показов 1476. Ответов 1 Метки нет (Все метки) дан массив x(n,m) найти наибольшее значение среди сумм каждой строки массива. помогите пожалуйста,срочно надо !! 0

Опции темы

Найти наибольшее значение среди сумм каждой строки матрицы

Решение