Pascal: Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 ст
Pascal:
Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, которые стоят перед максимальным элементом
Гость
Ответ(ы) на вопрос:
Гость Const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,max,imax,jmax,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end;
writeln('max = a[',imax,',',jmax,'] = ',max);
s:=0;
for i:=1 to imax-1 do
for j:=1 to m do s:=s+a[i,j];
for j:=1 to jmax-1 do s:=s+a[imax,j];
writeln('s = ',s);
end.
Пример:
Исходный массив:
75 39 34 25 29 87
57 12 73 49 75 21
48 99 16 57 23 43
74 70 13 2 35 44
21 49 90 91 12 38
max = a[3,2] = 99
s = 624
Не нашли ответ?
Похожие вопросы