Pascal ABC одномерные массивы

[Александр 19]

Помогите решить

1.Найти среднее арифметическое положительных и отрицательных элементов массива S(10).Исходный массив заполнить с помощью случайных целых чисел (Задача на обработку элементов одномерного массива, с использованием базовых алгоритмов: нахождение суммы и количества по определенному условию).

2.В заданном c клавиатуры одномерном массиве Z(n) найти максимальный элемент среди всех отрицательных элементов. (Задача на обработку элементов одномерного массива, с использованием базового алгоритма - нахождение максимального элемента).

[Aranea tela telam]

1 Задача

Program pr1;
var
a:array [1..10] of integer;
i,i1,i2,i3,i4:integer;
c1,c2:real;
begin
i1:=0;
i2:=0;
i3:=0;
i4:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=-100+random(200);
if a[i]<0 then 
begin
inc(i1);
i3:=i3+a[i];
end
else
if a[i]>0 then 
begin
inc(i2);
i4:=i4+a[i];
end;
end;
c1:=round(i3/i1);
Writeln('средне арифмитическое отрицательных чисел = ',c1);
c2:=round(i4/i2);
Writeln('средне арифмитическое положительных чисел = ',c2);
end.

[Aranea tela telam]

2 Задача

Program User;
var 
a:array of int64;
i,b,n:int64;
begin
randomize;
b:=0;
Readln(n);
setlength(a,n);
for i:=0 to n-1 do
begin
a[i]:=Random(100);
if b<a[i] then b:=a[i];
end;
Writeln('Наибольший элемент = ',b);
end.

[Александр 19]

Спасибро большое, первая задача отлично работает а вторая выдаёт ошибку на команде Var a:array of int64;

[Aranea tela telam]

Сообщение от Александр 19

Спасибро большое, первая задача отлично работает а вторая выдаёт ошибку на команде Var a:array of int64;

замени int64 на integer;

[shablakov]

всёровно не работает

[Sciv]

2.В заданном c клавиатуры одномерном массиве Z(n)

При чем тут рандом?

максимальный элемент среди всех отрицательных элементов.

Почему b инициализируется нулем?

А еще - в долбанутом на голову АБЦпаскале компилятор не пропускает записи array of integer.

Program User;
var 
a:array [1..10] of integer;
i,b,n:integer;
begin
  b:=-10000;
  repeat
    Readln(n);
  until (n>0) and (n<=10);
  for i:=1 to n do begin
    ReadLn(a[i]);
    if b<a[i] then b:=a[i];
  end;
Writeln('Наибольший элемент = ',b);
end.

[Mad_Cat]

так то

 if (b<a[i]) and (a[i]<0)then b:=a[i];

[Darica]

и всё равно спс большое у меня дкр эти две задачи есть))))