Регистрация
elvinabilalova
01.01.2021 19:44
Информатика
Есть ответ 👍

решить. В ворде например напишите

201
500
Посмотреть ответы 1

Ответы на вопрос:

ludmillychka
ludmillychka
4,4(61 оценок)

program massiv;

uses crt;

var a: array[1..5] of integer;

 

        i,n: integer;  

begin 

      clrscr;

      n: =0;    

 

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

    for i: =1 to 5 do

          begin 

          a[i]: =random(101);  

 

          if (a[i] mod 2)=0 then inc(n);

          write(a[i]: 4);

      end;

writeln;

writeln('количество чётных элементов=',n);

    readkey;  

 

end. 

 

 

 

 

Популярно: Информатика