Информатика, опубликовано 2018-08-22 21:30:06 by Гость
Дан двумерный массив 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на