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

Question

Информатика

Володюка

23 декабря, 10:16

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

+3

Ответы (1)

Знаете ответ?

Рудольф · 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
begin

max:=a[i];

maxi:=i;

end;

writeln (max," ", maxi) ;

end;