Ввести, вывести простейший одинарный/двумерный массив 10 на интервале от 1 до 100 ''Pascal ABC''

Узнай цену своей работы

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

Здравствуйте! Подскажите пожалуйста как составить примитивные одинарный/двумерный массивы 10 на интервале от 1 до 100, и найти max/min элементы полученных массивов???

Решение задачи: «Ввести, вывести простейший одинарный/двумерный массив 10 на интервале от 1 до 100 ''Pascal ABC''»

textual
Листинг программы
Var
  x: Array[1..10,1..10] of Integer;
  i,j: Byte;
  max,min: Integer;
BEGIN
max:=-Maxint;
min:=Maxint;
For i:=1 to 10 do
begin
  For j:=1 to 10 do
  begin
    x[i,j]:=Random(100)+1;
    If x[i,j]>max Then max:=x[i,j];
    If x[i,j]<min Then min:=x[i,j];
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('MAX= ',max);
Writeln('MIN= ',min);
END.

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

  1. Объявляется двумерный массив x размером 10х10 и переменные i, j, max, min типа Byte.
  2. Переменным max и min присваивается значение -Maxint и Maxint соответственно.
  3. Два вложенных цикла выполняются последовательно для каждого элемента массива x.
  4. Каждый элемент массива инициализируется случайным числом от 1 до 100 с помощью функции Random(100)+1.
  5. Если текущий элемент массива больше max, то max присваивается значение этого элемента.
  6. Если текущий элемент массива меньше min, то min присваивается значение этого элемента.
  7. Каждый элемент массива выводится на экран с помощью функции Write(x[i,j]:4).
  8. После завершения второго вложенного цикла, выводится символ новой строки.
  9. После завершения первого вложенного цикла, выводится символ новой строки.
  10. Выводятся значения переменных max и min с помощью функции Writeln('MAX= ',max) и Writeln('MIN= ',min).
  11. Код завершается.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы