Var a:array[1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do a[i]:=random(10)+1; for i:=1 to 20 do if a[i] mod 2 <>0 then write(a[i],' '); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
