Решить в паскале:1. Найти наихороший итог прыжков в длину среди 9

Решить в паскале:
1. Отыскать наилучший итог прыжков в длину среди 9 соучастников.

2. Из n введенных чисел найти минимальное значение посреди четных частей

Задать свой вопрос
1 ответ
Program n1;
var   
    i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if xgt;n then n:=x;
end;
writeln(n);
end.

program n1;
var    
    i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (xlt;n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт