Question

Завести в программе массив Dot{любые 8 целых чисел от 1 до 100}. Найти минимальный элемент массива и его номер и вывести его на экран.

Answer 1

паскаль
var dot: array [1..8] of integer;
             i,max,maxi:integer;
begin
max:=0;
for i:=1 to 9 do // создание массива
readln(a[i]); 
for i:=1 to 9 do
if max<a[i] then // поиск максимального
begin 
max:=a[i];
maxi:=i;
end;
writeln(max," ",maxi);
end;