Question

СДЕЛАЙТЕ БЛОК-СХЕМУ И НАПИШИТЕ ПРОГРАММУ ДЛЯ ДАННОЙ ЗАДАЧИ:
Ввести с клавиатуры массив из 5 элементов, найти минимальный из них.

Answer 1

Uses crt;
var a:array [1..5] of integer;
min,i:integer;
begin
clsclr;
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if a[i]<min then min:=a[i];
write('min=', min);
readkey;
end.