СДЕЛАЙТЕ БЛОК-СХЕМУ И НАПИШИТЕ ПРОГРАММУ ДЛЯ ДАННОЙ ЗАДАЧИ:
Ввести с клавиатуры массив из 5 элементов, найти минимальный из них.
Ввести с клавиатуры массив из 5 элементов, найти минимальный из них.
More Questions From This User See All
Answers & Comments
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.