Предмет: Информатика,
автор: coolgolder2014
найти строку двумерного массива с наименьшей суммой элементов
язык паскаль , const n=4;m=2;
Ответы
Автор ответа:
0
program naim;
const n= 4;
m = 2;
var a: array [1..n, 1..m] of integer;
s: array [1..n] of integer;
i, j, min: integer;
begin
for i:= 1 to n do begin
s[i]:=0;
for j:= 1 to m do
read (a[i,j]);
writeln (''); end;
for i:= 1 to n do
for j:= 1 to m do
s[i]:=s[i]+a[i,j];
j:=1;
min:=s[1];
for i:= 2 to n do
if s[i]<min then begin
min:= s[i];
j:=i; end;
writeln ('');
writeln ('Номер строки с минимальной суммой: ', j);
end.
const n= 4;
m = 2;
var a: array [1..n, 1..m] of integer;
s: array [1..n] of integer;
i, j, min: integer;
begin
for i:= 1 to n do begin
s[i]:=0;
for j:= 1 to m do
read (a[i,j]);
writeln (''); end;
for i:= 1 to n do
for j:= 1 to m do
s[i]:=s[i]+a[i,j];
j:=1;
min:=s[1];
for i:= 2 to n do
if s[i]<min then begin
min:= s[i];
j:=i; end;
writeln ('');
writeln ('Номер строки с минимальной суммой: ', j);
end.
Интересные вопросы
Предмет: Физика,
автор: graftor77
Предмет: Английский язык,
автор: sot0s
Предмет: Информатика,
автор: boksha9898
Предмет: Химия,
автор: МихаилТ97
Предмет: Обществознание,
автор: Ленакокс1