profile
Опубликовано - 2 дня назад | По предмету Информатика | автор zxc_mxdvs

В заданном одномерном массиве, состоящем из 7 целых чисел, подсчитать количество четных элементов. Элементы вводятся с клавиатуры.

  1. Ответ
    Ответ дан Fedoseewa27
    586


    uses crt;
    var a:array [1..100] of integer;
    i,m,n:integer;
    begin
    write('Введите размерность массива: ');read(n);
    writeln;
    for i:=1 to n do
    begin
    a[i]:=random(10)+1;
    if a[i] mod 2=0 then
    begin
    m:=m+1;
    end;
    write(a[i]:3);
    end;
    writeln;
    write('Колличество четных элементов: ',m)
    end.
    




    0



Топ пользователи