Дан одномерный массив. Удалить все элементы последовательности значения,которые кратны k

[Кристюша5]

помогите плииз

[Poma][a]

а сама пробовала? или что-то не понятно? программа же супер легкая!

[Азам]

var
   i,j,n,k:byte;
   a,a1:array [1..100] of integer;
   sum,sum1:real;
begin
randomize;
write('n=');readln(n);
 write('k=');readln(k);
 for i:= 1 to n do begin

 a[i]:=random(10);
write(a[i]);  end;
 writeln;
 writeln('posle ydaleniya');
  for i:= 1 to n do begin
 if a[i]mod k=0 then a1[i]:= a[i];

 write(a1[i]);
 end;
 readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Яна696]

Сообщение от Poma][a

а сама пробовала? или что-то не понятно? программа же супер легкая!

действительно!
Но находятся "добрые" люди...
||
\/

[Азам]

может быть)))))