Вывести все четные элементы массива стоящие на нечетных местах(Паскаль)

Katyha028272819 Katyha028272819    2   28.01.2021 17:22    3

Ответы
akalitp08ipr akalitp08ipr  27.02.2021 17:35

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

i:integer;

begin

for i:=1 to 10 do  begin a[i]:=random(255);  

write(a[i],' ');end;

writeln;

for i:=1 to 10 do

 if (a[i]mod 2 = 0) and  (i mod 2 =1) then

   write(a[i],' ')end.


Вывести все четные элементы массива стоящие на нечетных местах(Паскаль)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика