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

  • Автор темы ShuriK93
  • Дата начала
S

ShuriK93

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

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

2.Сформировать новый массив из отрицательных элементов первого массива с номерами кратными 4 и элементов второго массива, меньших значения максимального элемента первого массива
 
09.11.2009
665
1
23
Киев
#2
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 и элементов второго массива, меньших значения максимального элемента первого массива
В новых масивов должно быть два? Если один то в масив заносятся сначала отрицательные елементы, а потом значения меньше максимума первого?
 
S

ShuriK93

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

Спасибо за номер 1 большое
 
09.11.2009
665
1
23
Киев
#5
Исправил.

№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.
Код писал прямо тут