Язык Паскаль. №1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k. №2 Дан масив целых числ. Найти в этом массиве минимальный элмент ...
Язык Паскаль.
№1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.
№2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M. Получить в порядке возрастания все целые числа из интервала (m;M), которые не входят в данный массив.
№3 Сформировать массив простых чисел , не больших заданного натурального числа N.
№4 Сформировать массив простых множителей заданного числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы