Записи. Задача-1 штука.

[puporev]

Мне кажется, что вот и вся Ваша задача.

uses crt;
const nmax=30;
type TAbit=record
           fio:string[15];
           fiz:byte;
           mat:byte;
           inf:byte;
           rus:byte;
           srb:real;
           end;
var sp:array[1..nmax] of TAbit;
    n,i,k:integer;
begin
clrscr;
repeat
write('Kolichestvo studentov n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Vvedite dannye ob abiturientah:');
for i:=1 to n do
  begin
    writeln('Abiturient ',i);
    write('  Familia I.O.: ');readln(sp[i].fio);
    write('    Fizika: ');readln(sp[i].fiz);
    write('    Matematika: ');readln(sp[i].mat);
    write('    Informatika: ');readln(sp[i].inf);
    write('    Russkij: ');readln(sp[i].rus);
    sp[i].srb:=(sp[i].fiz+sp[i].mat+sp[i].inf+sp[i].rus)/4;
  end;
clrscr;
writeln('Imeyut srednij ball 4.5 i vyshe:');
for i:=1 to n do
if sp[i].srb>=4.5 then
   begin
     writeln(sp[i].fio);
     k:=k+1;
   end;
write('Vsego ',k,' abit.');
readln
end.

[maliyusha]

Но а все-таки, как же сделать так, чтобы программа запрашивала лишь ФИО и оценки по трем дисципланам (например, физика, математика, история), затем высчитывала средний балл (4,5 или 3,5), и оставляла только ФИО тех абитуриентов, которые прошли рубеж 4,5?

[maliyusha]

Сейчас попробую

[puporev]

например, физика, математика, история

Интересно, где такой комплект вступительных экзаменов?

[maliyusha]

Ух-ты! Так здорово Огромное спасибо

[maliyusha]

Знаю, что смешно Вообще-то в задании другой пример: математика, физика(устно), физика (письменно) )

[maliyusha]

Еще раз спасибо