Объяснить строки кода

@IzotopTh232 · Регистрация: 02.12.2015

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

Объясните что происходит в каждой строке кода пожалуйста.

Pascal

const m=5; n=4;
var
  a: array [1..m,1..n] of Integer;
  i, j, k, p, mn, mx: Integer;
begin
  Randomize;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10); Write(a[i,j]:4);
    end; WriteLn;
  end;
  for i:=1 to m do
    for j:=2 to n-1 do begin
      mx:=a[i,1];   for p:=2 to j-1 do if mx<a[i,p] then mx:=a[i,p];
      mn:=a[i,j+1]; for p:=j+2 to n do if mn>a[i,p] then mn:=a[i,p];
      if (mx<a[i,j]) and (a[i,j]<mn) then Inc(k);
    end;
  WriteLn('"Особых" элементов: ',k);
end.

@alganus · 11.12.2015, 20:54

я конечно не профи так что как-то так:
1- объявление константы
2- собственное пояснение типов данных используемые в будущем программой.
3- создание матрицы размером m на n
4-присваивание типа данных переменным
5- начало программы
6- функция автозаполнения
7-8- собственно заполнение матрицы рандомными значениями
9- обозначение границы чисел до 10 (т.е. значение чисел не больше 10 в матрице)
10-завершение операции и вывод на экран матрицы
ну а дальше собственно вычисления для выявления особых элементов с максимальным и минимальным значением я так понимаю

@alganus 6 / 5 / 5 Регистрация: 10.12.2015 Сообщений: 42
	11.12.2015, 20:54	2
	я конечно не профи так что как-то так: 1- объявление константы 2- собственное пояснение типов данных используемые в будущем программой. 3- создание матрицы размером m на n 4-присваивание типа данных переменным 5- начало программы 6- функция автозаполнения 7-8- собственно заполнение матрицы рандомными значениями 9- обозначение границы чисел до 10 (т.е. значение чисел не больше 10 в матрице) 10-завершение операции и вывод на экран матрицы ну а дальше собственно вычисления для выявления особых элементов с максимальным и минимальным значением я так понимаю 0