обработка одномерных массивов в паскале

[zizu]

1)Составить программу, которая определяет среднее арифметическое чётных элементов и среднее арифметическое нечётных элементов в массивах X(N) и Y(M). Нахождение средних арифметических оформить в виде подпрограммы.
2)Дан одномерный массив Х, состоящий из 20 целых чисел. Составить программу, которая подсчитывает количество различных по значению элементов в нём.
3)В массиве целых положительных чисел, упорядоченных по возрастанию, определить положение наиболее длинной группы, представляющей собой отрезок натурального ряда чисел.
4)Составить программу, которая находит максимальное и минимальное значения элементов в массивах А(M), B(N), C(K). Нахождение максимального и минимального значений элементов массива оформить в виде подпрограммы

[RUSt88]

обращайтесь

[ROMA2PVT]

program massiv;
Const
n=10;
var
x:array[1..20]of integer;
pologit,otrizat,nulev,i:integer;
begin
writeln('Массив: ');
randomize;
for i:=1 to n do
begin
x[i]:=random(10)-5;
write(x[i],' ');
end;
otrizat:=0;
pologit:=0;
nulev:=0;
for i:=1 to n do
begin
if x[i]<0 then otrizat:=otrizat+1;
if x[i]>0 then pologit:=pologit+1;
if x[i]=0  then nulev:=nulev+1;
end;
writeln;
writeln('Кол-во положительных: ',pologit);
writeln('Кол-во отрицательных: ',otrizat);
writeln('Количество нулевых: ',nulev);
end.

Вот вторая.

[Филантроп]

вот к четвертой

type vector=array[1..100] of integer;

.........

procedure find_max(a:vector;r:integer;var max:integer);
var i:integer;
begin
max:=a[1];
for i:=2 to r do
if a[i]>max then max:=a[i];
end;

procedure find_min(a:vector;r:integer;var min:integer);
var i:integer;
begin
min:=a[1];
for i:=2 to r do
if a[i]<min then min:=a[i];
end;

вот к первой

procedure SA(a:vector;r:integer;var sac,san:real);
var i:integer;
k1,k2:integer;
begin
sac:=0;
san:=0;
k1:=0;k2:=0;
for i:=1 to r do
if odd(a[i]) then begin san:=san+a[i];inc(k1);end
else 
begin sac:=sac+a[i];inc(k2);end
sac:=sac/k2;san:=san/k1;
end;

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread110043.html
http://www.cyberforum.ru/pascal/thread110361.html
А вообще есть поисковик для этого.Потрудились бы хоть сначала поискать немного.

[Филантроп]

2ROMA2PVT

Вот вторая.

имхо вы неверно поняли условие второй задачи!
вот вторая

[ROMA2PVT]

Филантроп не спорю может и неверно.Вот если чё ссылка ему на неё же(если конечно я неверно понял) http://www.cyberforum.ru/pascal/thread63919.html
Влом ведь человеку самому посидеть и поискать (а лучше самому сделать попытаться).

[zizu]

спс в предь буду сообразиельной..спс всем кто откликнулся=)