Дан целочисленный массив из N элементов, заданный датчиком случайных чисел в интервале (-55,99). Сформировать новый массив, из значений элементов данного массива больших 51 и имеющих индексы кратные 3

Const

n = 20;

var

a: array[1 ... n] of integer;

b: array[1 ... (n div 3) + 1] of integer;

i, m: integer;

begin

Randomize;

Writeln ('Элементы массива') ;

m : = 0;

for i : = 1 to n do

begin

a[i]: = Random (155) - 55;

Write (a[i]:4) ;

if (a[i]>51) and (i mod 3=0) then

begin m:=m+1; b[m]:=a[i] end

end;

Writeln;

if m>0 then begin

Writeln ('Элементы сформированного массива') ;

for i : = 1 to m do Write (b[i]:3) ;

Writeln

end

else Writeln ('Нет элементов с индексом, кратным 3, больших 51')

end.

Тестовое решение:

Элементы массива

57 - 3 79 - 49 30 87 - 15 49 - 38 - 49 - 45 - 38 55 - 27 48 - 29 56 63 79 - 2

Элементы сформированного массива

79 87 63