Предмет: Информатика,
автор: jokeryl
Решить в паскале:
1. Найти наилучший результат прыжков в длину среди 9 участников.
2. Из n введенных чисел найти минимальное значение среди четных элементов
Ответы
Автор ответа:
0
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 (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.
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 (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.
Похожие вопросы
Предмет: Геометрия,
автор: paul202x
Предмет: Математика,
автор: kazimovruslan079
Предмет: Математика,
автор: djAlokfff
Предмет: Математика,
автор: alena1847
Предмет: Биология,
автор: Лёлька89536660196