Выручайте! Очень безотлагательно!1)В системе паскаль ,пожалуйстаИмеются данные о количестве полных

Выручайте! Очень безотлагательно!
1)В системе паскаль ,пожалуйста
Имеются данные о количестве полных лет 3-х призеров спартакиады. Напишите программу избирающую и выводящую возраст самого младшего призера.
2) напишите программку,в которой юзеру предлагается дополнить до 100 некое целое число а(а -случайное число ,меньше 100). Ответ юзера проверяется и комментируется.

Задать свой вопрос
1 ответ
Program spartakiada;
var 
a: array [1..3] of byte; 
i, min: byte;
begin 
min := 100;   
for i := 1 to 3 do 
begin   
 readln(a[i]);   
 if a[i] lt; min then min := a[i]; 
end; 
 writeln(min);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт