Чтобы последнее число было 4 надо вычесть из 22 восемнадцать, 18 делится на 1,2,3,6,9,18. но число должно быть больше четырёх поэтому 6,9,18
Фото нет.
Вот моё старое решение с решетом Эратосфена.
https://pastebin.com/KqUn47Hn
program zadanie;
var
a: array[1..10] of integer;
i, max: integer;
begin
randomize;
max:=-10;
for i:=1 to 10 do
begin
a[i]:=-10+random(91);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do if a[i]>max then max:=a[i];
for i:=1 to 10 do
begin
if a[i]>25 then a[i]:=max;
write(a[i]:3);
end;
writeln;
end.
1.Поиск учебника.
2.Открытие учебника.
3.Осмотр параграфа в дневнике,который нужно выучить в учебнике.
4.Открытие нужного параграфа.
5.Чтение параграфа от начала и до конца.
6.Вслух рассказать про то,что прочитал.
7.Перечитать параграф еще раз.
8.Закрыть учебник.
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.