Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

7 задачу плизззз.............

Ответ оставил Гость

Паскаль:
program cult;
var i,z,m,v,k:integer;
a:array[1..30] of integer;
begin
writeln(Введите кол-во баллов);
readln(m);
z:=0; v:=0;
for i:=1 to 30 do
begin
if m[i]>20 then
b:=z+m[i];
v:=v+1;
end;
k:=(z div v);
writeln(Средний балл:,k);
end.