Дан массив целых чисел м х м. найти все самые нижние максимальные эле-менты по столбцам и вывести на - id438672020230305 от denchenchik02 05.03.2023 00:05

Question

Информатика: Дан массив целых чисел м х м. найти все самые нижние максимальные эле-менты по столбцам и вывести на экран их значения и местоположение

denchenchik02 · Accepted Answer

№1
var m,n,i,j,col:integer;
ar:array[1..100,1..100] of integer;
begin
write('строки : '); read(m);
write('столбцы : '); read(n);
for i:=1 to m do begin
write(i,': ');
for j:=1 to n do begin
read(ar[i,j])
end;
end;
for i:=1 to m do begin
for j:=1 to n do begin
if (ar[i,j]<0) then col:=col+1;
end;
writeln(i,': ',col);
col:=0;
end;
end.

№2
var m,n,i,j,sum,col:integer;
ar:array[1..100,1..100] of integer;
begin
write('строки : '); read(m);
write('столбцы : '); read(n);
for i:=1 to m do begin
write(i,': ');
for j:=1 to n do begin
read(ar[i,j])
end;
sum:=0;
end;
for i:=1 to m do begin
for j:=1 to n do begin
if (i=j) then begin col:=col+1; sum:=sum+ar[i,j]; end;
end;
end;
writeln(sum/col);
end.

Дан массив целых чисел м х м. найти все самые нижние максимальные эле-менты по столбцам и вывести на экран их значения и местоположение

MOGZ ответил