Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку заменив все элементы стоящие на четных местах на число 5. на языке паскаль

Program  chik; const  n=15; var a: array[1..15]of  integer; i: integer; begin for i: =1 to n do read(a[i]); for i: =1 to n do write(a[i],'  '); for i: =1 to n do if(i mod 2=0)then write(5,' ')else write(a[i],' '); end. 

Var a: array[1..15] of integer; i: integer; begin for i: =1 to 15 do begin a[i]: =random(-10,10); write(a[i],' '); end; writeln; for i: =1 to 15 do begin if not odd(i) then a[i]: =5; write(a[i],' '); end; end.

что значит из строки? формулируйте лучше. можно делать через обычный массив, примерно так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.

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

2)что означает слово window с ?

белая смерть?

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

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

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

 

                    рис

                          окно

                          соль

                    ветка

                        каша

                          вагон