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

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

Условие:начиная с 1-ой строки находить и печатать среднее арифметическое элементов каждой строки и минимальное значение из значений элементов строки,заканчивая цикл, если разница среднего и минимального из элементов очередной строки оказалось больше заданного значения T.
Program HBFS_1;
  uses crt;
    Type x=array[1..7,1..3] of integer;
     var a:x;
      sr,T,L:real;
       i,j,s,min,n: integer;
 
 
 
begin
 
 s:=0;
 write('количество строк ');
  readln(n);
   if n<=7 then
   else
   writeln('ошибка');
 
     write('введите значение T ');
      Readln(T);
 
    writeln ('заполните таблицу');
        for i:=1 to n do
      for j:=1 to 3 do begin
        write('a[',i,',',j,']=');
       readln(a[i,j]);
               end;
               while L<T do
               begin
              for i:=1 to n do
              for j:=1 to 3 do
              s:=s+a[i,j];
              sr:=s/3;
                a[i,1]:=min;
               if a[i,j]<min then
                min:=a[i,j];
                L:=sr-min;
             writeln(sr);
            writeln(min);
            readln;
             end;
             end.

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

textual
if n<=7 then
   else
   writeln('ошибка');

14   голосов, оценка 3.571 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы