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

Question

Информатика

Рена

17 декабря, 12:31

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

+5

Ответы (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.