var a,s:real;
b:integer;
begin
s:=0;
for b:=1 to 5 do begin
writeln('Введите оценку:');
read(a);
s:=s+a;
end;
s:=s/5;
writeln('Средний балл:',s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,s:real;
b:integer;
begin
s:=0;
for b:=1 to 5 do begin
writeln('Введите оценку:');
read(a);
s:=s+a;
end;
s:=s/5;
writeln('Средний балл:',s);
end.