При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко второму экзамену (программа Паскаль)

KoCmiK11 KoCmiK11    2   16.04.2019 23:00    9

Ответы
Danil3250 Danil3250  16.04.2019 23:00
type zap=array [1..100] of record
name:string[20];
mark:0..5;
end;
var p:zap;
i,N:integer;
c:char;
begin
readln(N); {Количество}
for i:=1 to N do
begin
p[i].name:=' ';
repeat
read(c);
p[i].name:=p[i].name+c;
until c=' ';
read(p[i].mark);
end;
for i:=1 to N do
begin
if pi[i].mark>2 then writeln(p[i].name,' ',p[i].mark)
else continue;
end;
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы