Составьте список студентов spisok (10 записей), включающий Фамилию и 5 оценок. Напишите программу, удаляющую из списка тех, кто имеет хотя бы одну двойку. Массив и результат работы программы вывести на экран.

Предыдущий
вопрос Следующий
вопрос

const n=10;

var sp1:array[1..n]of string;

sp,f,oc:string;

i,p,k,j,m:integer;

begin

m:=0;

writeln('введите список фамилий с оценками');

for i:=1 to n do begin

readln(sp);

p:=pos(' ',sp);

f:=copy(sp,1,p-1); //writeln('фамилия ',f);

delete(sp,1,p); //writeln('остаток',sp);

k:=0;

for j:=1 to 5 do

begin

p:=pos(' ',sp);

oc:=copy(sp,1,p-1); //writeln('оценка ',oc);

if oc='2' then k:=k+1;//writeln('k= ',k);

delete(sp,1,p); //writeln('остаток',sp);

end;

if sp<>'2'then

if k=0 then begin m:=m+1; sp1[m]:=f;end;

end;

writeln('список фамилий без двоек:');

for i:=1 to m do

writeln(sp1[i]);

end.