Написать код на паскаль
Чтобы подсчитывал средний балл по оценкаи
Пример
Водишь оценки 54345 и выдает средний балл
Помогите пж
Срочн
Ответы
Ответ дал:
1
Ответ:
program E9;
var
a, sr, sra: real;
i, n:integer;
begin
a:=0;
writeln('Введите кол-во оценок:');
readln(n);
for i:=1 to n do begin
writeln('Введите оценку:');
readln(a);
sra:=sra+a;
end;
sr:=sra/n;
writeln('Среднее знач = ',sr);
end.
Объяснение:
Просто скопируй и вставь код
Ответ дал:
1
var N,oc,S,i:integer;
SR:real;
begin
write ('Всего оценок: ');
read (N);
S:=0;
for i:=1 to N do
begin
read (oc);
S:=S+oc;
end;
Sr:=S/N;
Write('Cредний балл: ',Sr)
end.
Аноним:
Помогите пожалуйста с базой данных, пожалуйста https://znanija.com/task/43712584
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад