Задача Pascal

определите количество элементов одномерного массива имеющих четные значения

Question

Информатика

Таисия

28 июня, 02:20

Задача Pascal

определите количество элементов одномерного массива имеющих четные значения

+4

Ответы (1)

Знаете ответ на вопрос?

Гаря · Answer 1

Const

K = 13;

Var

A:array[1 ... K] of integer;

i, C:integer;

Begin

C:=0;

Write ('Исходный массив: ') ;

For i: = 1 to K do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

if A[i] mod 2 = 0 then C:=C+1;

End;

WriteLn;

WriteLn ('Количество чётных элементов: ', C) ;

End.

Задача Pascalопределите количество элементов одномерного массива имеющих четные значения

Задача Pascal

определите количество элементов одномерного массива имеющих четные значения