<span>j:=0;
for i := 1 to n do
begin
if (b[j]>0) and (b[j] mod b[j]=0) and (b[j] mod 1 =b[j]) then
begin
inc(j);
b[j] := a[i];
end;
j = 0 , массив описан как array[1..n]
кроме того, массив b изначально не задан, поэтому будет еще и деление на ноль.
</span>
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
1. Пойми закономерность и продолжи числовой ряд Какое следующее число? 2, 9, 10, 12, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29
Оксана 73395
Сама бы не догадалась. Нашла в инете
Вообще суть в том чтоб название числа начиналось на Д
<span>2, 9, 10, 12, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29 ,
дальше идет 90,91,92,93........
</span>