Подсчитать количество четных элементов в массиве для делфи...(((
Подсчитать количество четных элементов в массиве для делфи...(((
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 20;
var
i, e, p: integer;
a: array[1..n] of integer;
begin
Randomize;
writeln('Массив А:');
p := 0;
for i := 1 to n do
begin
e := Random(100) - 50;
a[i] := e;
write(e:5);
if e mod 2 = 0 then p := p + 1
end;
writeln;
writeln('Количество четных элементов в массиве равно ', p)
end.
Тестовое решение:
Массив А:
49 19 42 41 -21 -25 42 21 45 -1 -18 29 -48 21 -34 26 -25 4 5 -8
Количество четных элементов в массиве равно 8
Не нашли ответ?
Похожие вопросы