Найти минимальное значение среди элементов массива - Free Pascal
Формулировка задачи:
program abz; var A:array[1..100] of array [1..100] of integer; m,j,N:integer; b:integer; i:integer; begin read (M,N); for i:=1 to M do begin b:=0; for j:=1 to N do B:=b+a[a,j]; ----- Пишет "не соответствие типа" [a,j] write(b); end; readln; end.
Решение задачи: «Найти минимальное значение среди элементов массива»
textual
Листинг программы
program abz; var A:array[1..100] of array [1..100] of integer; m,j,N:integer; min:integer; i:integer; begin write('Введите размерность массива: '); readln (M,N); for i:=1 to M do begin for j:=1 to N do begin a[i,j]:=random(100)-50; write(a[i,j]:3); {readln(a[i,j]; //ввод с клавиатуры} end; writeln; end; min:=a[1,1]; for i:=1 to M do for j:=1 to N do if a[i,j]<min then min:=a[i,j]; writeln('Минимум: ',min); readln; end.
Объяснение кода листинга программы
- Объявление переменных:
- A: массив из массивов целых чисел (двумерный массив) размером 100x100
- m, j, N: целочисленные переменные для хранения размера массива
- min: переменная для хранения минимального значения
- i: цикловая переменная
- Ввод размера массива с клавиатуры
- Заполнение двумерного массива случайными значениями от 50 до 150
- Вывод на экран содержимого массива
- Нахождение минимального значения в массиве
- Вывод на экран минимального значения
- Ввод с клавиатуры для завершения работы программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д