Question

Сказали что у меня не все пояснения к , нужны пояснения к каждой строчке program kursz5; uses crt; //подключение модуля crt const n=10; const m=10; var //описание переменных i,j,max,min: integer; a: array[1..n,1..m] of integer; //ввод массива begin randomize; //подключение датчика случайных чисел for i: =1 to n do //ввод чисел для переменных массива for j: =1 to m do a[i,j]: =random(100); //ввод случайных чисел max: = a[1,1]; min: = a[1,1]; for i: =1 to n do begin for j: =1 to m do begin if a[i,j] > max then max: = a[i,j]; //вывод max элемента не правильно if a[i,j] < min then min: =a[i,j]; //вывод min элемента write(a[i,j]: 5); end; writeln; end; writeln(); writeln('max=',max,' min=',min); //вывод max и min значений end.

Answer 1

Program kursz5; //Название программы
uses crt; //Подключение модуля crt
const n=10; //Определение неизменяемых переменных
const m=10;
var //Описание переменных 
i,j,max,min:integer;
a:array[1..n,1..m] of integer; //(Ввод) Объявление массива
begin
randomize; //Подключение датчика случайных чисел
for i:=1 to n do //Ввод чисел для переменных массива 
for j:=1 to m do
a[i,j]:=random(100); //Ввод случайных чисел
max:= a[1,1]; //Присвоение к max элементах [1,1]
min:= a[1,1]; //Присвоение к min элементах [1,1]
for i:=1 to n do  //Будем делать пока i < n
begin
for j:=1 to m do //Будем делать пока i < m
begin
if a[i,j] > max then  // если элемент массива больше max будем делать что ниже
max:= a[i,j]; //(Вывод max элемента НЕ ПРАВИЛЬНО) Здесь происходит присвоение к переменной max, Но никак не вывод
if a[i,j] < min then  //если элемент массива меньше min будем делать следующее
min:=a[i,j]; //(Вывод min элемента) Тоже самое, здесь присвоение к переменной min
write(a[i,j]:5); - Здесь уже вывод
end;
writeln; 
end;
writeln(); 
writeln('max=',max,' min=',min); //Вывод max и min значений
end.