Найти среднюю оценку ученика за четверть

@denisnap · Регистрация: 27.11.2016

надо найти среднюю оценку ученика за четверть в паскале

Добавлено через 1 час 26 минут
вот код мой

Pascal

var s,x,n: interger 
repeat 
begin 
sz read 
sz =s/n 
untie 
x<0;
n>1
s>3
 
end

@radioegor146 · 08.12.2016, 22:07

Pascal

var
  s, n: integer;
  
begin
  n := readlninteger('Введите кол-во отметок:');
  for var i := 1 to n do
    s += readlninteger('Введите отметку:');
  writeln('Средняя отметка: ', s / n);
end.

Не по теме:

Пользуйтесь подсветкой синтаксиса

@volvo · 09.12.2016, 12:42

Pascal

1
2
3

begin
  writeln('Средняя отметка: ', ReadArrInteger(ReadInteger('Количество отметок:')).Average());
end.

Опции темы