Предмет: Информатика,
автор: sas1995
Написать программу Вывод минимального элемента массива целых чисел
Ответы
Автор ответа:
0
const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln ('Min: ',min);
readln;
end.
Интересные вопросы
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: shpilyovaviktoria
Предмет: Математика,
автор: baade2007
Предмет: Математика,
автор: dimon2457263547
Предмет: Биология,
автор: Razor75