Paodzob
4 год назад
Пожалуйста посчитайте написать программу в Pascal, которая вычисляет среднюю оценку за неделю (с помощью массивов)
ОТВЕТЫ
Нина
Oct 24, 2020
//PascalABC.Net
begin
var a: array of integer;
setLength (a, readinteger('Введите кол-во учеников: '));
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите оценку ученика: ');
write ('Средняя оценка: ', a.Average);
end.
begin
var a: array of integer;
setLength (a, readinteger('Введите кол-во учеников: '));
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите оценку ученика: ');
write ('Средняя оценка: ', a.Average);
end.
370
Смежные вопросы:
