Const
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.
Ответ:
Объяснение:арточки мистера Фокса У мистера Фокса есть карточки, на каждой стороне которых нарисована или машина или какой-то зверь. Карточек, на которых есть животное (хотя бы с одной стороны) — десять, карточек, на которых есть машина (хотя бы с одной стороны) тринадцать, карточек, где на одной стороне машина, а на другой – зверь, 5. Сколько карточек, у которых на обоих сторонах объекты одного
<span>srednee:=(a+b)/2; наверное.
</span>
1. D:\SCHOOL\PHYSICS\
2. Е:\GROUP\COURSE\ACADEMY\
3. <span>D:\Tasks\Физика.C </span>