Дан целочисленный одномерный массив из n-элементов. вывести на экран четные элементы стоящие на нечетных массивов через паскаль

Question

Информатика

Косьма

22 ноября, 09:46

Дан целочисленный одномерный массив из n-элементов. вывести на экран четные элементы стоящие на нечетных массивов через паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Рона · Answer 1

Uses crt;

const n=15;

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

i:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (100) - 50;

write (a[i]:3) ;

end;

writeln;

for i:=1 to n do

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

write (a[i]:3) ;

end.