Помогите составить 2 программы

[ShuriK93]

Помогите пожалуйста составить 2 программы (Form)

1.Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и количество чисел, меньших заданного B

2.Сформировать новый массив из отрицательных элементов первого массива с номерами кратными 4 и элементов второго массива, меньших значения максимального элемента первого массива

 

[Dock1100]

Nomer 1

const n=10;
var a:array[1..N] of real;
i,k,ks,b:integer;
s:real;
begin
k:=0;
s:=0;
ks:=0;
writeln('vvedite ''b');
readln(b);
for i:=1 to N do
begin
readln(a[i]);
if (a[i]>0)and(i mod 2 = 1) then begin ks:=ks+1; s:=s+a[i]; end;
if a[i]<b then k:=k+1;
end;
if ks<>0 then s:=s/ks;
writeln('ser arifm=',s);
writeln('count<b',k);
readln;
end.

2.Сформировать новый массив из отрицательных элементов первого массива с номерами кратными 4 и элементов второго массива, меньших значения максимального элемента первого массива

В новых масивов должно быть два? Если один то в масив заносятся сначала отрицательные елементы, а потом значения меньше максимума первого?

 

[ShuriK93]

В новых масивов должно быть два? Если один то в масив заносятся сначала отрицательные елементы, а потом значения меньше максимума первого?

Да, массив должен один получиться, сначала отрицательные элементы, а потом значения меньше максимума первого.

Спасибо за номер 1 большое

 

[hosm]

среднее арифметическое положительных чисел, стоящих на нечетных местах

if Odd(i) then if a>0 then begin ks:=ks+1; s:=s+a; end;

 

[Dock1100]

Исправил.

№2

const n=10;
m=5;
var a:array[1..n] of real;
b:array[1..m] of real;
c:array[1..n+m] of real;
i,k:integer;
max:real;
begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i]<0)and(i mod 4 =0) then begin k:=k+1; c[k]:=a[i]; end;
if i=1 then max:=a[i];
if max<a[i] then max:=a[i];
end;
for i:=1 to m do
begin
readln(b[i]);
if b[i]<max then begin k:=k+1; c[k]:=b[i]; end;
end;
for i:=1 to k do
writeln('c[',i,']=',c[i]);
readln;
end.

Код писал прямо тут