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