Задать вопрос
30 июня, 23:17

В одном массиве произвольных чисел найдите количество нечетных элементов (Паскаль)

+3
Ответы (1)
  1. 1 июля, 01:46
    0
    Const

    n=20;

    var

    a:array[1 ... n] of integer;

    i, s:integer;

    begin

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

    s:=0;

    Randomize;

    for i:=1 to n do begin

    a[i]:=Random (100) - 50;

    if a[i] mod 2 0 then s:=s+1;

    write (a[i]:5)

    end;

    writeln;

    writeln ('Количество нечетных элементов равно ', s)

    end.

    Тестовое решение:

    Исходный массив

    -10 - 26 - 5 36 - 48 41 - 10 5 46 - 1 - 5 1 19 - 11 - 10 31 9 - 31 - 4 - 40

    Количество нечетных элементов равно 11
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В одном массиве произвольных чисел найдите количество нечетных элементов (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы