Переставить элементы массива в обратном порядке - Free Pascal (150)

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

Дан массив из N целых чисел. Переставить элементы массива в обратном порядке, т.е первый на место последнего, второй на место предпоследенего и т.д. В матрице D[1..N,1..M] максимальное значение заменить средним арифметическим чисел строки, в которой находится максимальный элемент. Без процедур )

Решение задачи: «Переставить элементы массива в обратном порядке»

Листинг программы

uses crt;
const n=5;
      m=6;
var a:array[1..n,1..m] of real;
    i,j,jmax:byte;
    max, sr:real;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=20*random-9;
        write(a[i,j]:5:1);
      end;
    writeln;
  end;
for i:=1 to n do
  begin
    max:=a[i,1];jmax:=1;sr:=0;
    for j:=1 to m do
      begin
        if a[i,j]> max then
          begin
           max:=a[i,j];{находим максимальный в строке}
           jmax:=j;{его номер столбца}
          end;
        sr:=sr+a[i,j]/m;{считаем среднее}
        a[i,jmax]:=sr;{заменяем}
      end;
   end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:5:1);
    writeln;
  end;
readln
end.

Объяснение кода листинга программы

Объявление переменных:
- n, m — целочисленные константы, определяющие размер массива a (5 и 6 соответственно).
- a — массив, содержащий элементы типа real, размером n на m.
- i, j, jmax — целочисленные переменные, используемые для перемещения по массиву a.
- max, sr — реальные переменные, используемые для нахождения максимального элемента и вычисления среднего значения строки.
Инициализация массива a случайными числами с помощью функции randomize и цикла for. Каждый элемент выводится на экран с помощью функции write.
Нахождение максимального элемента каждой строки массива a. Для этого используется цикл for и вложенный в него цикл for. Если элемент текущей строки больше текущего максимального значения, он заменяет максимум. Также запоминается номер столбца с максимальным элементом.
Вычисление среднего значения каждой строки массива a. Для этого используется цикл for и вложенный в него цикл for. Сумма всех элементов строки делится на m (количество элементов).
Замена элемента с максимальным значением в каждой строке на соответствующее среднее значение. Для этого используется цикл for и вложенный в него цикл for.
Вывод результата на экран с помощью цикла for и вложенного в него цикла for, используя функцию write.
Ввод символа с помощью функции readln для подтверждения того, что программа завершена.