МАссывЫ

[Жаннулька]

Составить программу, которая
1.Первый максимальный по модулю элемент.
2.Среднее арифметическое первого и последнего положительного элемента или сообщение об их отсутствии.

const
  n=6;
var
  a: array [1.. n] of integer;
  i: integer;
  sum: integer;
  max: integer;
  so: integer;
  k: integer;
begin
for i:=1 to n do
  begin
    writeln('введите ',i,' элемент');
    readln(a[i]);
  end;
  
for i:=1 to n do
  write(a[i]:4);
  end.

а ДАЛЬШЕ ПОМОГИТЕ ПОЖАЛУЙСТА?

[Stilet]

Допустим так:

const
  n=6;
var
  a: array [1.. n] of integer;
  i: integer;
  sum: integer;
  max: integer;
  so: integer;
  k: integer;
begin
so:=0;
for i:=1 to n do
  begin
    writeln('введите ',i,' элемент');
    readln(a[i]); 
if (i=1)or(abs(a[i])>max) then max:=abs(a[i]);
if (so=0)or(a[i]>0) then so:=a[i];
if (a[i]<0) then k:=a[i];
  end;
  
writeln(
'Первый максимальный по модулю элемент.',max:20,#13#10
'Среднее арифметическое первого и последнего положительного элемента или сообщение об их отсутствии.', (so+k)/2
);

[Жаннулька]

Первый максимальный по модулю элемент это вот я сделала, а далешь про среднее арифметич?

[Poma][a]

Дык гляньте выше.. там всё есть.. только можно еще if добавить.. и всё..