Предмет: Информатика,
автор: slava852
Ввести c клавиатуры массив из 5 элементов, найти минимальный из них.
Пример:
Введите пять чисел:
4 15 3 10 14
минимальный элемент 3
Ответы
Автор ответа:
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]<min then min:=a[i];
writeln;
write('минимальный элемент ',min);
end.
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]<min then min:=a[i];
writeln;
write('минимальный элемент ',min);
end.
Похожие вопросы
Предмет: Литература,
автор: fctfjufcrdctyv
Предмет: Беларуская мова,
автор: Fiksiklena
Предмет: История,
автор: ann6389
Предмет: Биология,
автор: Growly