Даны два одномерных массива А [1..6] и C [1..6]. Получить A^2, С^2, А * С. Подсчитать число четных и число нечетных чисел в полученных массивах. Перемножения массивов и подсчет выполнить в подпрограмме

1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?

2)что означает слово window с английского?

3)...-это белая смерть?

4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?

5)что маслом не испортишь?

6)транспортное средство,предназначеное для движения по рельсам?

                   РИС

                        ОКНО

                         СОЛЬ

                   ВЕТКА

                       КАША

                         ВАГОН

Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так

var

  a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел

  i, n : integer;

begin

  //Если колчисетво чисел вводится, то этот код
read (n);

for i := 1 to n do

  read (a[i]);

//Если же по уловию задачи задана только строка чисел, то использовать следующий  

//код

while not eoln (input) do

begin

  n := n + 1;

  read (a[n]);

end;

//Далее для обоих вариантов.

for i := 1 to n do

  if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1 

end.