1) Найти больший элемент в массиве А[6].
2) В массиве А[50] найти среднее арифмитическое всех элементов массива и вывести на экран те элементы, которые ему равны.

спасибо, а это точно правильно и на писать (, Исходный массив')

Можете не писать. Это чтобы понятнее было, но не обязательно

const n=6;var   m,k,i: integer;  var a: array[1..n] of integer;begin  m:=integer.MinValue;  writeln ('Исходный массив');  for i:=1 to n do begin    a[i]:=random(20);    write (a[i]:3);    if a[i]>m      then begin m:=a[i]; k:=i; end;  end;  writeln;    writeln ('Наибольший элемент массива: a[',k,'] = ',m);end.--------------------------------------------Исходный массив  2  1 12 12 16  4Наибольший элемент массива: a[5] = 16-------------------------------------------------------------------------------------const n=50;var   sa: real;  i,k: integer;  var a: array[1..n] of integer;begin  sa:=0; k:=0;  writeln ('Исходный массив');  for i:=1 to n do begin    a[i]:=random(3);    write (a[i]:2);    sa:=sa+a[i];  end;  sa:=sa/n;    writeln;  writeln ('Среднее арифметическое = ',sa);  writeln;  writeln ('Элементы массива, равные среднему арифметическому:');  for i:=1 to n do begin    if a[i]=sa      then begin writeln ('a[',i,'] = ',a[i]); k:=1; end;  end;  if k=0 then writeln ('Нет таких элементов');end.----------------------------------------Исходный массив 0 0 0 0 1 2 1 2 1 1 2 1 1 0 0 1 0 0 1 2 1 1 1 2 2 1 0 1 1 2 0 1 1 0 0 0 2 2 1 1 2 1 2 0 2 1 2 1 1 2Среднее арифметическое = 1Элементы массива, равные среднему арифметическому:a[5] = 1a[7] = 1a[9] = 1a[10] = 1a[12] = 1a[13] = 1a[16] = 1a[19] = 1a[21] = 1a[22] = 1a[23] = 1a[26] = 1a[28] = 1a[29] = 1a[32] = 1a[33] = 1a[39] = 1a[40] = 1a[42] = 1a[46] = 1a[48] = 1a[49] = 1-------------------------------------------------------------------------------------PS: Как правило эта программа выводит пустой результат. Т.е. нет элементов, равных среднему арифметическому. Возможно что-то упущено в условии задачи.