Задать вопрос
20 сентября, 16:54

Помогите написать программу в паскале.

В заданном массиве найти количество чётных чисел. Вывести исходный массив и результат.

+4
Ответы (1)
  1. 20 сентября, 19:57
    0
    Вариант с вводом элементов:

    Program prog;

    uses crt;

    var a: array [0 ... 999] of integer;

    i, k, n: integer;

    begin

    clrscr;

    write ('Размер массива n = ') ;

    readln (n) ;

    writeln;

    for i:=1 to n do

    begin

    write ('a[', i,'] = ') ;

    readln (a[i]) ;

    end;

    for i:=1 to n do

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

    writeln;

    writeln ('Количество четных чисел k = ', k) ;

    end.

    Вариант с рандомными элементами:

    Program prog;

    uses crt;

    var a: array [0 ... 999] of integer;

    i, k, n: integer;

    begin

    clrscr;

    randomize;

    write ('Размер массива n = ') ;

    readln (n) ;

    writeln;

    for i:=1 to n do

    begin

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

    writeln ('a[', i,'] = ', a[i]) ;

    end;

    for i:=1 to n do

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

    writeln;

    writeln ('Количество четных чисел k = ', k) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите написать программу в паскале. В заданном массиве найти количество чётных чисел. Вывести исходный массив и результат. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы