Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

В одномерном массиве А(10) найти минимальный элемент.

Ответ оставил Гость

Program massiv;
var i,min: integer;
a: array[1..10] of integer;
begin
writeln (Введите элементы массива);
for i:=1 to 10 do
begin
write (a[,i,]-);
readln (a[i]);
end;
min:=a[i];
for i:=2 to 10 do
if min>a[i] then
begin
min:=a[i];
end;
writeln (Наименьший элемент в массиве , min);
end.