Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки

Question

Информатика

Мишата

19 июня, 00:49

Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки

+3

Ответы (1)

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

Евмения · Answer 1

Var

i, k, Count: Integer;

begin

Count:=0;

for i:=0 to 2 do

for k:=0 to 1 do

c[i][k]:=Random (300) - 100;

for i:=0 to 1 do

if ((c[1][i] Mod 2 = 0) And (c[1][i] > = 0) then

Inc (Count) ; / / увеличиваем переменную на 1 цу

WriteLn (Count) ;

end.