Показать сообщение отдельно
Старый 14.12.2009, 23:21   #3 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Код:
const n=8;
var f1:array [1..n] of string;
    f2:array [1..n] of integer;
    f3,f4,f5:array [1..n] of byte;
    i:byte;s,srst,srg:real;
begin
for i:=1 to n do begin
write('введите фамилию ');
readln(f1[i]);
write('введите год рождения ');
readln(f2[i]);
write('оценка по истории ');
readln(f3[i]);
write('оценка по алгоритмизации ');
readln(f4[i]);
write('оценка по  дискретному анализу');
readln(f5[i]);
end;
s:=0;
for i:=1 to n do
s:=s+f3[i]+f4[i]+f5[i];
srg:=s/(n*3);
writeln('Средний бал по группе  ',srg:0:2);
writeln('Список студентов, имеющих средний бал ни ниже среднего балла группы.');
for i:=1 to n do begin
srst:=0;
srst:=(f3[i]+f4[i]+f5[i])/3;
if srst>srg then writeln(f1[i]);
end;
end.
DDS вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070