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

150

458

Посмотреть ответы 2

Ответы на вопрос:

ttttrrrrtttr

Информатика

4,5(47 оценок)

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]< m then m: =a[i]; writeln('минимальный результат: ',m) end.