Даны 4 числа. Определить порядковый номер наименьшего среди них - Pascal

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

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

Данны 4 числа Определить порядковый номер наименшого среди них! Надо написать программу на algo Всем спасибо!

Решение задачи: «Даны 4 числа. Определить порядковый номер наименьшего среди них»

textual
Листинг программы
program q;
uses crt;
const
n=4;
var
   a:array[1..n] of integer;
   i,k,min:integer;
 
begin
   clrscr;
   writeln('Введите 4 числа');
   for i:= 1 to n do read (a[i]);
   min:=a[1];
   k:=1;
   for i:=2 to n do
   begin 
      if a[i]<min then
      begin
          min:=a[i];
          k:=i;
      end;
   end;
   writeln('Наименьший элемент находится на ',k,' позиции');
   readln;
end.

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

  1. Объявляются переменные: — a (массив из 4 целых чисел) — i, k, min (целые числа)
  2. Задаётся константа n (количество чисел в массиве)
  3. С помощью цикла for и функции read происходит заполнение массива a четырьмя числами, введенными пользователем.
  4. Инициализируется переменная min значением первого элемента массива a, а переменная k — значением 1 (поскольку предполагается, что наименьшее число находится на первой позиции).
  5. С помощью цикла for (итерирующегося от 2 до n) происходит сравнение каждого элемента массива a с текущим значением переменной min. Если текущий элемент меньше min, то обновляются значения min и k.
  6. Выводится сообщение о том, что наименьшее число находится на позиции k.
  7. Программа завершается считыванием символа в конце строки (readln).

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

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