Program MyProject;
{$APPTYPE CONSOLE}
var
p:int64;
a:integer;
i:2..10;
begin
a:=1+2;
p:=a;
i:=2;
while i<10 do begin
i:=i+1;
a:=a+i;
p:=p*a;
end;
Write(p)
end.
Ударяющий по клавише палец не должен прогибаться, а другие пальцы не должны подниматься со своих мест. После удара по любой клавише зоны «ответственности» палец должен возвращаться на своё основное место. Руки располагайте над вторым основным рядом клавиатуры. Пальцы сгибайте так, будто в каждой руке держите яблоко
Var a:array[1..10] of integer;i,k:integer;q:real;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
writeln(a[i]);
q:=q+a[i];
end;
q:=q/10;
for i:=1 to 10 do
if a[i]>q then inc(k);
writeln('Чисел превышающих среднее: ',k);
end.
1) Невозможно ничего, разные типы данных
2) Сложение возможно, невозможно деление
3) Возможно
4) Невозможно деление на 0
Ответ: 3)