Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива - Turbo Pascal»

textual
Program Min_Max;
uses crt;
var a:array[1..10] of integer;
min,max,s,sn:real;
i:integer;
begin
  Textcolor (12);
   For i:=1 to 10 do
     Begin
       A[i]:=random(20)-10;
       Write(A[i]:4);
      s:=s+A[i];
      if a[i]>max then 
       max:=a[i];
      if a[i]<min then 
       min:=a[i];
  end;
  sn:=(s/10);
  Textcolor(10);
  writeln;
writeln('Максимально число: ',max);
writeln('Минимальное число : ',min);s:=s+A[i];
writeln('Средне арифмитическое равно ', sn);
readln
end.

10   голосов, оценка 3.700 из 5


СОХРАНИТЬ ССЫЛКУ