1.Даны два массива: А(5) и В(5). Сформируйте из них массив С,предварительно определив его длину,включая попеременно из массива А положительные элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.

 

2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.

 

Помогите пожалуйста! 

program zadacha_pervaya;uses crt;var a,b: array [1..5] of integer;       c:array [1..10] of integer;       i,k:integer;beginclrscr;k:=0;for i:=1 to 5 do beginreadln(a[i]);if a[i]>0 then begink:=k+1;c[k]:=a[i];end;end; for i:=1 to 5 do beginreadln(b[i]);if b[i] mod 2 <> 0 then begink:=k+1;c[k]:=a[i];end;end;for i:=1 to k do beginwriteln(c[i]);end;end.

Program Mazoff1;uses crt;var  a,b: array [1..5] of integer;//Массивы А и В  c:array [1..10] of integer;//Массив С  i,j:integer;//счетчикиbegin  randomize;  j:=0;  for i:=1 to 5 do    begin      a[i]:=random(101)-50;//заполняем массивы      b[i]:=random(101)-50;//случайными числами от -50 до 50    end;    for i:=1 to 5 do    begin      write(a[i],' '):5;//выводим массивы А и В в столбик      writeln(b[i]):5;    end;  for i:=1 to 5 do    begin     if a[i]>0 then //проверяем текущий элелмент массива А       begin                j:=j+1;     //если он положительный, увеличиваем счетчик на 1         c[j]:=a[i]; //и добавляем этот элемент в массив С    end;     if b[i] mod 2 <> 0 then  //проверяем текущий элелмент массива В       begin       j:=j+1;            //если он чётный, увеличиваем счетчик на 1       c[j]:=b[i];        //и добавляем этот элемент в массив С     end;end;  writeln('Всего в массиве С ',j,' элементов: ');  for i:=1 to j do    writeln(c[i]);end.

Program Mazoff2;uses crt;const n = 20;var  mas:array [1..n] of real;//Массив данных  i,j:integer;//счетчики  ur,pl: real;//урожай и площадьbegin  randomize;  for i:=1 to n do    begin      mas[i]:=random(101);//заполняем массив    end;    j:=1;    ur:=0;    pl:=0;    while j<=n do    begin      ur:=ur+mas[j]*mas[j+1];      pl:=pl+mas[j+1];      j:=j+2;    end;  writeln('Всего собрано ',ur,' тонн с общей площади ',pl,' га.');  writeln('Средняя урожайность равна ',ur/pl:3:2);end.

Кстати, программа Димана добавляет сначала все нужные элементы из массива А, а только потом - из массива В. А в условии задачи сказано: "попеременно"