9 класс — состав те программу, которая заполняет массив a [1… 10] случайными числами…

var A: array [1… 10] of integer; i: integer; beginrandomize; for i: =1 to 10 do A[i]: =random (20)+1; writeln ('Массив: '); for i: =1 to 10 do Write (A[i]: 4); Writeln; Writeln ('Числа массива из диапазона [5… 15]: '); for i: =1 to 10 do if 15 > A[i] then if A[i] > 5 then Write (A[i]: 4); end.