Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел.
Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел.
Гость
Ответ(ы) на вопрос:
Гость// Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел.
Program asd;
USES crt;
Const n=4;
m=4;
VAR X:array[1..n, 1..m] of integer;
i,j,k:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
X[i,j]:=Random(10);
Write(X[i,j]:3);
end;
Writeln;
end;
For i:=1 to n do
For j:=1 to m do
begin
If X[i,j] mod 2 = 0 then k:=k+1;
end;
Writeln('Кол-во четный элементов в массиве: ',k);
END.
Не нашли ответ?
Похожие вопросы