Free pascal! Дан массив определенной длины. Проинициализировать массив и найти количество элементов массива, имеющих четные порядковые номера, но являющиеся нечетными числами.

Question

Информатика

Свирид

11 декабря, 08:41

Free pascal! Дан массив определенной длины. Проинициализировать массив и найти количество элементов массива, имеющих четные порядковые номера, но являющиеся нечетными числами.

+1

Ответы (1)

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

Русланыч · Answer 1

Uses Crt;

Const N = 13;

Var

A:array[1 ... N] of integer;

i, k:integer;

Begin

Randomize;

ClrScr;

k:=0;

For i: = 1 to N do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

if (i mod 2 = 0) and (A[i] mod 2 0) then k:=k+1;

End;

WriteLn;

Write ('k = ', k) ;

ReadLn

End.