Question

Паскаль абц, через массив, с комментариями действий

Answer 1

Begin
Var a:array of integer;
Var good:=0;
Var b:integer;
Var bad:=0;
Var middle:=0;
For var i:= 1 to 10 do
Begin
Readln(b);
a[i]:=b;
End;
For var i:=1 to 10 do
Begin
If a[i] > 3 then inc(good)
Else if a[i] < 4 then inc(bad);
Middle+=a[i];
End;
Println(middle/10);
End.

Вроде так, если компиляция не произойдёт, напиши