После удаления уменьши переменную i на 1.
Объяснение:
Во-первых, у тебя при отображении на сайте часть кода пропала (то, что начинается с < ), но это ты сам разберешься, у тебя-то верно написано.
Логическая ошибка в том, что если были числа 3, 5, 10, 12, то ты удаляешь 3, а потом переходишь к следующему числу. Но пятерка при этом сместилась на место тройки, и ты ее пропускаешь. Так же ты потом пропустишь 12.
Лечится это так: после удаления уменьши переменную i на 1, тогда следующий шаг цикла начнется с того же элемента массива (точнее, с того, который оказался на месте удаленного).
2) Уровень B.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(201);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 10 do begin
if (a[i] div 100) = 0 then
kol := kol + 1;
end;
writeln();
writeln('Двузначных чисел: ', kol);
end.
3) Уровень C.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(10, 100);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 9 do begin
if (a[i] + a[i+1]) mod 3 = 0 then
kol := kol + 1;
end;
writeln();
writeln('Таких пар : ', kol);
end.