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

Question

Информатика

Ксена

21 декабря, 00:11

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

+5

Ответы (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;