Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки
Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы