Связь с администрацией сайта:       

demo

Среди толпы я одинок

Вычисление среднего балла за четверть

Программа для вычисления среднего балла за четверть на языке pascal

 

 

const
n=4;
var
m:array[1..n]of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do begin
write('Оценка за ',i,' четверть ');
readln(m[i]);
k:=k+m[i];
end;
writeln('Средний бал ',k/n:0:2);
writeln
end.

 

 

 

Rate this item
(1 Vote)
Login to post comments