[nikitaef]

Знаю,что сообщество посвящено не программированию, но надеюсь на вашу помощь.
Задание:

Программу я написал,но она большая, помогите,пожалуйста, как-нибудь сократить.
const n=30;
var a,c:array[1..n] of integer;
i,b,k:integer;
begin
k:=1;
i:=1;
for i:=1 to 30 do
a[i]:=random(100) + 1;
for i:=1 to 30 do
write (' ',a[i]);
writeln('Введите число, которое нужно удалить');
read (b );
for i:=1 to n do begin
if a[i]=b then begin
c[k]:=i;
k:=k+1;
end;
end;
for k:=1 to n do begin
for i:=1 to n do begin
if i=c[k] then begin
a[i]:=a[i+1];
a[n]:=0;
end;
end;end;
writeln('Готовый массив');
for i:=1 to 30 do begin
write (' ',a[i]);
end;
end.

@темы: Программирование (тема закрыта

Comments

[All_ex]

Вам лучше обратиться сюда... programming.diary.ru/

[All_ex]

Я так понимаю, что это Паскаль...

const n=30;
var a,c:array[1..n] of integer;
i,b,k:integer;
begin

k:=1;
i:=1; - Зачем эти строчки?...

for i:=1 to 30 do
a[i]:=random(100) + 1; - Не помню... а нужна ли здесь +1
for i:=1 to 30 do
write (' ',a[i]); - Эта часть - заполнение массива... Годиться...

writeln('Введите число, которое нужно удалить');
readln (b ); - Это понятно...


for i:=1 to n do begin
if a[i]=b then begin
c[k]:=i;
k:=k+1;
end;
end;
for k:=1 to n do begin
for i:=1 to n do begin
if i=c[k] then begin
a[i]:=a[i+1];
a[n]:=0;
end;
end;end; - А это я совсем не понял...

writeln('Готовый массив');
for i:=1 to 30 do begin
write (' ',a[i]);
end;
end.

[All_ex]

Как вариант программы....

const n=30;
var a :array[1..n] of integer;
i, b :integer;
begin

for i:=1 to 30 do
a[i]:=random(100) + 1; - Не помню... а нужна ли здесь +1
for i:=1 to 30 do
write (' ',a[i]);

writeln('Введите число, которое нужно удалить');
readln(b );

for i:=1 to n do begin
if a[i]=b then a[i]:=-1;

writeln('Готовый массив');
for i:=1 to 30 do
if a[i] <> -1 then write (' ',a[i])
else write (' ','x')

end.

[nikitaef]

All_ex, спасибо огромное!

[All_ex]

Welcome... но в будущем с программированием лучше обращаться в сообщество, посвященное этой тематике... ссылка выше...