Найти минимальное значение и индекс максимального значения массива - PascalABC.NET

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

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

1)Найти минимальное значение 2)Номер элемента с максимальным значением Помогите пожалуйста! Срочно! Pascal ABC.net

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

textual
Листинг программы
var i,n,min:integer;
A:array[1..100] of integer;
begin
 writeln('Введите количество элементов массива');
 readln(n);
 writeln('Ввеедите элемменты в строчку');
 for i:=1 to n do read(A[i]);
 min:=A[1];
 for i:=1 to n do
 if A[i]<=min then min:=A[i];
 writeln('Min = ', min);
 end.

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

  1. Объявляются три переменные: i, n, min типа integer (целое число).
  2. Объявляется массив A типа array[1..100] of integer (массив A размером 100, каждый элемент которого является целым числом).
  3. Выводится сообщение Введите количество элементов массива и считывается количество элементов массива в переменную n.
  4. Выводится сообщение Введите элементы в строчку и считываются элементы массива A в цикле от i=1 до n.
  5. Инициализируется переменная min значением первого элемента массива A.
  6. В цикле от i=1 до n сравнивается каждый элемент массива A с текущим значением переменной min. Если элемент меньше или равен min, то min обновляется этим элементом.
  7. Выводится сообщение Min = и значение переменной min.
  8. Код завершается.

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

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