Ввести c клавиатуры массив из 5 элементов, найти минимальный из них. Пример: Введите пять...

0 голосов
104 просмотров




Ввести c клавиатуры массив из 5 элементов, найти минимальный из них.


Пример:


Введите пять чисел:


4 15 3 10 14


минимальный элемент 3





Информатика (37 баллов) | 104 просмотров
0

в Pascal

Дан 1 ответ
0 голосов

Uses crt;
var a:array[1..5] of integer; i,min:integer;
begin
  writeln('Введите пять чисел:');
  for i:=1 to 5 do
    read(a[i]);
  min:=a[1];
  for i:=1 to 5 do
    if a[i]  writeln;
  write('минимальный элемент ',min);
end.

(7.2k баллов)