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

Const
n=10;
Var a: array[1..10] of  integer;
      i: integer;
        s,k: real;
Begin
k:=1; s:=0; 
For i:=1 to n do
     begin
       write ('Число = '); readln (a[i]);
       if a[i] mod 2 = 0  then s:=s+1 else k:=a[i]*k;
     end;
   writeln('Четных чисел = ',s);   writeln('Произведение нечетных = ',k);
End.

1) это сведения о чём то

2)обоняние , осязание, зрение , слух.

3) Блок питания

— Центральный процессор

— Внешняя видеокарта (ее разъем PCI, AGP, PCI-Express)

— Оперативная память

— Оптический DVD привод

— Трехдюймовый дисковод гибких дисков (FDD 3,5)

— Жесткий диск (винчестер)

— Материнская плата (фиолетовая)

4) Основными устройствами вывода являются монитор, принтер, плоттер акустические колонки, наушники.

5) Backspace

6) PageDown

7) это то что содержит и хранит информацию

8) клавиатура

9) Сканер

10) клавиатуре, Диска, принтере или на бумагу

Объяснение:

В Мексике появится первая в мире деревня, созданная с

Создание полноценного жилья с технологии 3D-печать уже давно ни у кого не вызывает удивления. Поскольку такой строительства более! Также установлен мировой рекорд по самому большому уличному 3D-рисунку в

Лондонский дуэт 3D-стрит-арт художников 3D Joe and Max установил 17 ноября рекорд Гиннесса за самый большой уличный 3D-рисунок. Для выставки Парижской недели моды, арт студия для всемирных брендов решила сделать 3D фон чтобы покупателям было интересно смотреть на сам товар, и это очень классно что мир так продвигается!