В целочисленном массиве из 18 элементов записаны результаты в подтягивании на перекладине учеников 5 класса (возможные значения от 0 до 15). Найти в самый маленький результат и вывести его на экран.

Question

Информатика

Марьяна

29 октября, 23:39

В целочисленном массиве из 18 элементов записаны результаты в подтягивании на перекладине учеников 5 класса (возможные значения от 0 до 15). Найти в самый маленький результат и вывести его на экран.

+5

Ответы (1)

Знаете ответ на вопрос?

Шемяка · Answer 1

Var a:array [1 ... 18] of integer;

i, m:integer;

begin

write ('Массив с данными: ') ;

for i:=1 to 18 do

begin

a[i]:=random (16) ;

write (a[i],' ')

end;

writeln;

m:=a[1];

for i:=2 to 18 do

if a[i]
writeln ('Минимальный результат: ', m)

end.