Найти среднее арифметическое элементов строки матрицы, в которой расположен минимальный элемент - Turbo Pascal

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

Выручите : Задан массив В(М, М). Найти среднее арифметическое элементов строки, в которой расположен минимальный элемент. Желательно с функциями или процедцрами

Код к задаче: «Найти среднее арифметическое элементов строки матрицы, в которой расположен минимальный элемент - Turbo Pascal»

textual
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,min,idx1,idx2,s:integer;
sum:real;
BEGIN
clrscr;
for i:=1 to n do
 for j:=1 to n do
    a[i,j]:=random(10+3);
 
    for i:=1 to n do
    begin
     for j:=1 to n do
      write(a[i,j]:4);
      writeln;
      end;
      writeln;
      min:=a[1,1];
      idx1:=1;idx2:=1;
      for i:=1 to n do
       for j:=1 to n do
        if a[i,j]<min then
        begin
         min:=a[i,j];
         idx1:=i;
         idx2:=j;
        end;
 
       writeln('MIN = ',min,' координаты ',idx1,' ',idx2);
       s:=0;
 
       for j:=1 to n do
         s:=s+a[idx1,j];
 
         sum:=s/n;
         writeln('Среднее ариф = ',sum:3:2);
readkey;
END.

10   голосов, оценка 3.900 из 5


СОХРАНИТЬ ССЫЛКУ