Смотря с чего начинается с 0 или 1 массив , я просто решил написать пример программы , тут сам вводишь 10 чисел
var
i , k, n:integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do readln(a[i]);k:=a[1]*a[2]*a[3];
n:=a[10]*a[9]*a[8];
writeln('произведение первых трех чисел= ',k);
<span>writeln('произведение последних трёх чисел= ', n);</span>
end.
9 * 1 = 1 (это 1я загрузка сковороды)
1*1 = 1 (2я загрузка сковороды)
1+1 = 2 (требуется две загрузки сковороды)
2*2 =4 (2 загрузки сковороды умножили на два переворота получили 4 минуты)
2+2 = 4 минут. (уходит на 10 сырников)
PS: можно разделить 10 сырников по 5 шт на одну загрузку сковороды.
CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END
Для кодирования номера одного из 256 спортсменов требуется log(2)256 = 8 бит = 1 байт.
Объем информации о финише 100 лыжников = 100*1 байт = 100 байт