Создаем матрицу, оценки вводятся с клавиатуры и считается количество оценок, которые <=2 в каждой строке. Последний столбец показывает количество неуд. по каждому предмету. в каждой строке 6 студентов, в конце каждой строки количество неуд по этому предмету
DIM a(4,6)
PRINT "input ocenki"
FOR i = 1 TO 4
FOR j = 1 TO 6
INPUT a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
k = 0
FOR j = 1 TO 6
PRINT a(i, j);
IF a(i, j) <= 2 THEN k = k + 1
NEXT j
PRINT k
NEXT i<span>
</span>
1 МБ = 8 Мбит
Переводим МБ в Мбиты: 10*8=80 Мбит
80/50 = 1.6 сек
var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>