Дан массив из 10 элементов, заполненный случайным образом. Значения элементов от - 50 до 50. Вывести на экран элементы массива, оканчивающиеся на 4 или 8.

Question

Информатика

Лада

22 мая, 02:19

Дан массив из 10 элементов, заполненный случайным образом. Значения элементов от - 50 до 50. Вывести на экран элементы массива, оканчивающиеся на 4 или 8.

+3

Ответы (1)

Знаете ответ?

Маркиана · Answer 1

Var

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

i, n: byte;

begin

Randomize;

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.