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

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

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

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

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

Question

Информатика

Феогния

8 мая, 22:01

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

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

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

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Кирюша · 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.