Найти минимальное значение среди элементов массива - 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.
Условие задачи. Произвольный массив M на N заполнен произвольными числами. Необходимо найти минимальное значение среди элементов массива.

Решение задачи: «Найти минимальное значение среди элементов массива»

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.

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

  1. Объявление переменных:
    • A: массив из массивов целых чисел (двумерный массив) размером 100x100
    • m, j, N: целочисленные переменные для хранения размера массива
    • min: переменная для хранения минимального значения
    • i: цикловая переменная
  2. Ввод размера массива с клавиатуры
  3. Заполнение двумерного массива случайными значениями от 50 до 150
  4. Вывод на экран содержимого массива
  5. Нахождение минимального значения в массиве
  6. Вывод на экран минимального значения
  7. Ввод с клавиатуры для завершения работы программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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