Дан массив из 10 элементов, заполненный случайным образом

Vara: array [1… 10] of integer; i, n: byte; beginRandomize; for i: =1 to 10 do begin a[i]: =random (100) -50; n: =abs (a[i] mod 10); if (n=4) or (n=8) then write (a[i]: 4); end; readln; end.