Вывести матрицу на экран и записать ее в файл, найти номер строки с наибольшим средним значением

@НикиНикита · Регистрация: 16.01.2019

Author24 — интернет-сервис помощи студентам

Вывести матрицу на экран и записать ее в файл, найти номер строки с наибольшем среднем значение, и значение вывести на экран и сохранить в файле.

@ZX Spectrum-128 · 24.01.2019, 13:16

Взято отсюда:
Найти номер строки, для которой среднеарифметическое значение элементов массива максимально

Pascal

const
  n = 11;
  m = 12;
 
var
  a: array[1..n, 1..m]  of integer;
  i, j, k, imax: integer;
  sr: real;
  f, g: text;
 
begin
  assign(f, 'f.txt');
  assign(g, 'g.txt');
  rewrite(f);
  rewrite(g);
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -n * m div 2 + random(n * m);
      write(a[i, j]:6);
      write(f, a[i, j]:6);
    end;
    writeln;
    writeln(f);
  end;
  sr := 0;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do 
      k := k + a[i, j];
    if k / n > sr then
    begin
      sr := k / n;
      imax := i;
    end;
    k := 0;
  end;
  writeln('Максимальное среднее: ', sr:8:3, ' в строке ', imax);
  writeln(g, 'Максимальное среднее: ', sr:8:3, ' в строке ', imax);
  close(f);
  close(g);
end.

@НикиНикита 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 57
		1
	Вывести матрицу на экран и записать ее в файл, найти номер строки с наибольшим средним значением 21.01.2019, 17:28. Показов 1424. Ответов 1 Метки нет (Все метки) Вывести матрицу на экран и записать ее в файл, найти номер строки с наибольшем среднем значение, и значение вывести на экран и сохранить в файле. 0

	24.01.2019, 13:16

Вывести матрицу на экран и записать ее в файл, найти номер строки с наибольшим средним значением

Решение