В целочисленном массиве из 18 частей записаны результаты в подтягивании

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

Задать свой вопрос
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]lt;m then m:=a[i];
writeln('Малый итог: ',m)
end.
Шалитов Валерий
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт