Program pas;
var
a:array[1..30] of integer;
i, k: integer;
s: real;
begin
s:=0;
k:=0;
for i:=1 to 30 do
readln(a[i]);
for i:=1 to 30 do
begin
if (not(a[i]mod 2=0)) then
s:=s+a[i];
inc(k);
end;
s:=s/k;
write(s:4:0);
end.
Сколько учеников имеют суммарный балл ниже среднего (excel) смотри на файле
Если возникнут вопросы или ошибки в ходе работы программы, пиши в комментариях.
Фигура становится плоской.