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