Помогите решить задачи по паскалю:1. видоизмените предшествующий пример, так чтоб программка

А где "предшествующий пример" для модификации?

сейчас напишу

Вы не пишите, а поправляйте вопрос.

предшествующий пример:var a: array[1..10] of integer;i: integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(40)-20;end;for i:=1write(a[i]:4);end.

Задание при этом осталось неполным, следовательно, оно будет удалено модерами... Поправляйте Начальный вопрос.

Никто не знает ответа?(

Просто надобно время, чтоб его написать...

хорошо, я подожду)

Вы написали что подождете после того, как был дан ответ? ))

Const
  n = 10;

var
  a: array[1..n] of integer;
  i, k, min, max: integer;

begin
  randomize;
  min := 100; max := -100;
  Writeln('начальный массив');
  for i := 1 to n do
  begin
    k := random(40) - 20;
    a[i] := n;
    if max lt; k then max := k
    else if min gt; k then min := k;
    Write(k, ' ')
  end;
  Writeln;
  Writeln('min=', min, ', max=', max)
end.

Тестовое решение:
начальный массив
-8 3 19 -14 19 13 -17 -2 8 8
min=-17, max=19

---------------------------------------------------------
const
  n = 10;

var
  a: array[1..n] of integer;
  i, k, s: integer;

begin
  randomize;
  s := 0;
  Writeln('начальный массив');
  for i := 1 to n do
  begin
    k := random(40) - 20;
    a[i] := n; s := s + k;
    Write(k, ' ')
  end;
  Writeln;
  Writeln('Среднее арифметическое одинаково ', s / k)
end.

Тестовое решение:
исходный массив
19 11 -1 1 -4 -6 -2 18 3 8
Среднее арифметическое одинаково 5.875