смысл задачи таков:
вводится 5 абитуриентов и 5 предметов
паскаль заполняет всю таблицу оценками и высчитывает средний балл.
потом надо расставить абитуриентов по рейтингу в зависимости от среднего бала.
я сделал только до рейтинга
вот
Код
program tabel10A;
uses wincrt;
Var familii:array [1..5] of string[7];
Var predmetu:array [1..5] of string[3];
var srb:array [1..3] of integer;
Var otcenki: array [1..5,1..5] of integer;
Var i,j:integer;
Var a,b,c,d,e;real;
begin;
Begin randomize;
For i:=1 to 5 DO for j:= 1 to 5 do Otcenki [i,j]:=random(6-2)+2;
end;
writeln('введите фамилии');
for i:=1 to 5 do readln(familii[i]);
writeln('введите предметы');
For i:= 1 to 5 do readln(Predmetu[i]);
writeln;
For j:= 1 to 72 do write('_');
writeln;
write('| ФИО |');
For i:= 1 to 5 do begin write(' ',predmetu[i],' |') end;
write(' Ср.б. ',' |');
write ('');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[1],' | ',otcenki[1,1],' | ', otcenki [1,2], ' | ',
otcenki [1,3],' | ', otcenki[1,4],' | ', otcenki [1,5], ' | ');
a:=(otcenki[1,1]+otcenki[1,2]+otcenki[1,3]+otcenki[1,4]+otcenki [1,5])/5;
write(a:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[2],' | ',otcenki[2,1],' | ', otcenki [2,2], ' | ',
otcenki [2,3],' | ', otcenki[2,4],' | ', otcenki [2,5], ' | ');
b:=(otcenki[2,1]+otcenki[2,2]+otcenki[2,3]+otcenki[2,4]+otcenki [2,5])/5;
write(b:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[3],' | ',otcenki[3,1],' | ', otcenki [3,2], ' | ',
otcenki [3,3],' | ', otcenki[3,4],' | ',otcenki [3,5], ' | ');
c:=(otcenki[3,1]+otcenki[3,2]+otcenki[3,3]+otcenki[3,4]+otcenki [3,5])/5;
write(c:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[4],' | ',otcenki[4,1],' | ', otcenki [4,2], ' | ',
otcenki [4,3],' | ', otcenki[4,4],' | ', otcenki [4,5], ' | ');
d:=(otcenki[4,1]+otcenki[4,2]+otcenki[4,3]+otcenki[4,4]+otcenki [4,5])/5;
write(d:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[5],' | ',otcenki[5,1],' | ', otcenki [5,2], ' | ',
otcenki [5,3],' | ', otcenki[5,4],' | ', otcenki [5,5], ' | ');
e:=(otcenki[5,1]+otcenki[5,2]+otcenki[5,3]+otcenki[5,4]+otcenki [5,5])/5;
write(e:6:2,' | ');
writeln;
For j:= 1 to 72 do write('=');
writeln;
end
uses wincrt;
Var familii:array [1..5] of string[7];
Var predmetu:array [1..5] of string[3];
var srb:array [1..3] of integer;
Var otcenki: array [1..5,1..5] of integer;
Var i,j:integer;
Var a,b,c,d,e;real;
begin;
Begin randomize;
For i:=1 to 5 DO for j:= 1 to 5 do Otcenki [i,j]:=random(6-2)+2;
end;
writeln('введите фамилии');
for i:=1 to 5 do readln(familii[i]);
writeln('введите предметы');
For i:= 1 to 5 do readln(Predmetu[i]);
writeln;
For j:= 1 to 72 do write('_');
writeln;
write('| ФИО |');
For i:= 1 to 5 do begin write(' ',predmetu[i],' |') end;
write(' Ср.б. ',' |');
write ('');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[1],' | ',otcenki[1,1],' | ', otcenki [1,2], ' | ',
otcenki [1,3],' | ', otcenki[1,4],' | ', otcenki [1,5], ' | ');
a:=(otcenki[1,1]+otcenki[1,2]+otcenki[1,3]+otcenki[1,4]+otcenki [1,5])/5;
write(a:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[2],' | ',otcenki[2,1],' | ', otcenki [2,2], ' | ',
otcenki [2,3],' | ', otcenki[2,4],' | ', otcenki [2,5], ' | ');
b:=(otcenki[2,1]+otcenki[2,2]+otcenki[2,3]+otcenki[2,4]+otcenki [2,5])/5;
write(b:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[3],' | ',otcenki[3,1],' | ', otcenki [3,2], ' | ',
otcenki [3,3],' | ', otcenki[3,4],' | ',otcenki [3,5], ' | ');
c:=(otcenki[3,1]+otcenki[3,2]+otcenki[3,3]+otcenki[3,4]+otcenki [3,5])/5;
write(c:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[4],' | ',otcenki[4,1],' | ', otcenki [4,2], ' | ',
otcenki [4,3],' | ', otcenki[4,4],' | ', otcenki [4,5], ' | ');
d:=(otcenki[4,1]+otcenki[4,2]+otcenki[4,3]+otcenki[4,4]+otcenki [4,5])/5;
write(d:6:2,' |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[5],' | ',otcenki[5,1],' | ', otcenki [5,2], ' | ',
otcenki [5,3],' | ', otcenki[5,4],' | ', otcenki [5,5], ' | ');
e:=(otcenki[5,1]+otcenki[5,2]+otcenki[5,3]+otcenki[5,4]+otcenki [5,5])/5;
write(e:6:2,' | ');
writeln;
For j:= 1 to 72 do write('=');
writeln;
end
помогите составить рейтинг
а то ничего не получается.
Заранее Спасибо.
Добавлено через 4 мин.
точнее расставить абитуриентов в таблице по рейтингу