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

24.12.2013, 11:02. **Показов** 2031. **Ответов** 1

Студворк — интернет-сервис помощи студентам

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

@Don_Omare · 24.12.2013, 13:29

Pascal

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.

Vidmak95
		1
	Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива 24.12.2013, 11:02. Показов 2031. Ответов 1 Метки нет (Все метки) Помогите найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива очень надо для экзамена в в языке этом я полный нуб

	24.12.2013, 13:29

Опции темы

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

Решение