Ответы
Ответ дал:
0
program raf105;
const
n = 5;
var
a:array[1..n] of integer;
x, counter, i: integer;
begin
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if (a[i] >= 10) and (a[i] <= 99) and (a[i] mod 10 = 2)
then counter:= counter + 1;
end;
for i:=n-counter+1 to n do
a[i]:= 0;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
Язык PascalABC
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад
8 лет назад