И в чем вопрос? сделай 2 массива. Заполни с помощью randomize укажи пределы. Далее в зависимости от среды разработки посмотри есть ли возможность найти разность с помощью функции. если нет то поэлементо вычитай из массива а элемент массива б и записывай в массив с
Срочность подъехала уже.
ТЕКСТОВЫЙ ВАРИАНТ:
<span>var b,i,n:integer;
const L=19999;
var a:array [1..L] of integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do begin
writeln('Введите число');
readln(a[i]);
end;
for i:=1 to n do begin
if (a[i]<30) then
if (a[i] mod 2) = 0 then
print(a[i]);
end;
end.</span>
Var
a,b,c,d,x:integer;
begin
read(a,b,c,d);
for x:= a to b do
if x mod d = c then
write(x,' ');
end.
В какой программной среде писать?
Pascal ABC?
Turbo Pascal?