1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7 элементов.Найти колличество четных положительных элементов. 3)Дан массив из 6 элементов.Найти произвдение положительных из них.

uses crt;

var i,s:integer;a:array[1..5] of integer;beginrandomize;s:=0;for i:=1 to 5 dobegina[i]:=random(15)-5;if a[i]>0 then s:=s+a[i];end;writeln(s);readln;end.

uses crt;

var i,s:integer;a:array[1..7] of integer;begins:=0;randomize;for i:=1 to 7 dobegina[i]:=random(15)-5;if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);end;writeln(s);readln;end.

uses crt;

var i,s:integer;a:array[1..6] of integer;begins:=1;randomize;for i:=1 to 6 dobegina[i]:=random(15)-5;if (a[i]>0) then s:=s*a[i];end;writeln(s);readln;end.

Program Alexandra_1;uses crt;const n=5;var  a:array[1..n] of integer;  i, sum: integer;begin  sum:=0;  for i:=1 to n do  begin      write('Введите ',i,'-e число ');    readln(a[i]);    if a[i]>0 then sum:=sum+a[i];  end;  writeln('Сумма положительных элементов ',sum);end.Program Alexandra_2;uses crt;const n=7;var  a:array[1..n] of integer;  i, num: integer;begin  num:=0;  for i:=1 to n do  begin      write('Введите ',i,'-e число ');    readln(a[i]);    if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1;  end;  writeln('Количество четных положительных элементов ',num);end.Program Alexandra_3;uses crt;const n=6;var  a:array[1..n] of integer;  i, tum: integer;begin  tum:=1;  for i:=1 to n do  begin      write('Введите ',i,'-e число ');    readln(a[i]);    if a[i]>0 then tum:=tum*a[i];  end;  writeln('Произведение положительных элементов ',tum);end.