maloiplan, сейчас кину код.
Добавлено @ 16:13
| Код |
program real_matrix;
const
n=1;
m=3;
var
matrix:Array[0..n,0..m] of Real;
i,j:Integer;
first_num:Boolean;
summ,max:Real;
begin
first_num:=true;
writeln('Введите матрицу',n,'x',m);
for j:=0 to n do
begin
first_num:=true;
for i:=0 to m do
begin
readln(matrix[j][i]);
if first_num then
begin
max:=matrix[j][i];
first_num:=false;
end;
if max<matrix[j][i] then
max:=matrix[j][i];
end;
summ:=summ+max;
writeln ('Начался ввод следующей строки');
end;
writeln('Cумма: ',summ);
end.
|
|