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

0 голосов
34 просмотров

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


Информатика (14 баллов) | 34 просмотров
Дан 1 ответ
0 голосов

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.

(139 баллов)