Ответ: ---------------------15-------------------------
В Системном блоке<span> находится вся техническая составляющая ПК. Все, благодаря чему работает компьютер. Если открыть системный блок, то мы увидим материнскую плату и размещенные на ней компоненты.</span>
Исходя из всего увы без обьяснения я просто очень долго прикидывал но яблони у француза абрикосы у немца вишни у поляка черешня у шведа груши у англичанина далее бегает француз в тенисс играет швед в гольф поляк пловец англичанин и прыгает немец потом на скрипке играет немец и швед поляк на рояле немец еще играет на трубе француз на барабанах (ударных) живут они короче француз слева от центра немец прямо в центре поляк с правого края швед с левого края а англичанин справа от центра теперь возраст французу 40 немцу 45 поляку 35 шведу 50 англичанину 30 и ответ тогда 50 лет шведу ав гольф играет поляк)))
Var h1,h2,m1,m2,s1,s2,s:integer;
begin
write('Введите время первого события: ');
readln(h1,m1,s1);
write('Введите время второго события: ');
readln(h2,m2,s2);
s:=h2*3600+m2*60+s2-h1*3600-m1*60-s1;
writeln('Число секунд между ними: ',s);
<span>end.</span>
Смотря с чего начинается с 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.