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]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
if counter > 0
then a[i-counter]:= a[i];
if (a[i] = x) and (counter < 1)
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
if a[i] = x
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]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if (a[i] = x) and (counter < 1)
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
2.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]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if a[i] = x
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
Язык PascalABC