Заполнить случайным образом массив размерностью n=20, - вопрос №166862420 от Tigrmigr 07.09.2022 10:03

Question

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

Tigrmigr · Answer

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.

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