1. Разработать таблицу, содержащую следующие сведения о восьми абитуриентах университета: фамилия, оценка за экзамен по математике, оценка за экзамен по физике, сумма за два экзамена. Проходной для поступления равен 8.
2. Добавить в таблицу столбец, в котором будет выводиться «зачислен», если сумма абитуриента больше или равна проходному , и «нет», если сумма меньше проходного (использовать условную функцию).
По желанию(Таблицу представить, как и в задании, в виде рисунка с формулами там, где они должны быть)
var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
begin
Read(t);
s:=s+t
end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.
Пример решения
Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4