Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Решить в паскале:
1. Найти наилучший результат прыжков в длину среди 9 участников.
2. Из n введенных чисел найти минимальное значение среди четных элементов

Ответ оставил Гость

Program n1;
var   
    i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln(Введите число); readln(x);
if x>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 (xend;
writeln(n);
end.