Question

Язык Паскаль.

№1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.

№2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M. Получить в порядке возрастания все целые числа из интервала (m;M), которые не входят в данный массив.

№3 Сформировать массив простых чисел , не больших заданного натурального числа N.

№4 Сформировать массив простых множителей заданного числа.

Answer 1

1.
const n=10;
var a,b array [1..n] of integer;
i,j,k:integer;
begin
readln(k);
j:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod k=0) and(a[i]<>0) then 
begin
j:=j+1;
b[j]:=a[i];
end;
end;
for i:=1 to j do
write(b[i],'  ');
end.

Answer 2

чувак, пжл реши хотя бы еще одну! плиииииз