заполнить случайным образом массив размерностью n=20, выбрать из последовательности все элементы которые заканчиваются на 0.

Question

Информатика

Юлий

2 декабря, 12:05

заполнить случайным образом массив размерностью n=20, выбрать из последовательности все элементы которые заканчиваются на 0.

+5

Ответы (1)

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

София · Answer 1

var n, i:integer;

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

begin

n:=20;

for i:=1 to n do

begin

a[i]:=random () %202+1;

if a[i] mod 10 = 0 then writeln (a[i]) ;

end;

readln;

end.

ну как то так ... нету возможности проверить.