Напишите пожалуйста паскаль-программу

[Fylhtq]

Из последовательности удалить все элементы, имеющие целую часть, кратную одному из двух наперед заданных чисел

[Sazary]

В чем проблема? Что непонятно?
Покажите ваши наработки.

Вам помогут int и mod.

[Fylhtq]

[QUOTE=Sazary;247288]В чем проблема? Что непонятно?
Покажите ваши наработки.

Вам помогут int и mod.[/QUOT]
эх никак я не могу написать доработокнет ((((

[Sazary]

Учите паскаль и в следующий раз выкладывайте то, что сделали.

uses crt;

var
A,B : integer;
n,i,j : integer;
mas : array[1..100] of real;

Begin
clrscr;
write('Enter A: ');
readln(A);
write('Enter B: ');
readln(B);
write('Enter number of elements: ');
readln(n);
for i:=1 to n do
 begin
 write('Enter mas[',i,']: ');
 readln(mas[i]);
 end;
writeln;

i:=1;
while i<=n do
 begin
 if (round(int(mas[i])) mod A = 0) or (round(int(mas[i])) mod B = 0) then
  begin
  dec(n);
  for j:=i to n do
   mas[j] := mas[j+1];
  dec(i);
  end;
 inc(i);
 end;

for i:=1 to n do
 write(mas[i]:6:2);

readkey;
end.