Решить в паскале:

1. Найти наилучший результат прыжков в длину среди 9 участников.

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

Question

Информатика

Лидуня

18 сентября, 03:47

Решить в паскале:

1. Найти наилучший результат прыжков в длину среди 9 участников.

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

+1

Ответы (1)

Знаете ответ на вопрос?

Вавуся · Answer 1

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
end;

writeln (n) ;

end.

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

Решить в паскале:

1. Найти наилучший результат прыжков в длину среди 9 участников.

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