Найти номер строки матрицы, содержащий наименьшее среднее значение - Pascal ABC

Формулировка задачи:

В целочисленной матрице размерностью 3x3 найти номер строки, содержащий наименьшее среднее значение. Я сделал на фотке наименьшее значение, можете пожалуйста дополнить.


textual

Код к задаче: «Найти номер строки матрицы, содержащий наименьшее среднее значение - Pascal ABC»

const n=3;
var a:array [1..n, 1..n] of integer ;
    i,j,s,k:integer;
    min:real;
begin
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln (a[i,j]);
 end;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
min:=maxint;
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  if s/n<min then
   begin
    min:=s/n;
    k:=i;
   end;
 end;
write('Минимальное среднее в строке ',k,' оно равно ',min:0:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5

Источник