В массиве A[1..14] выкинуть самые большие и самые маленькие элементы и заменить их средним арифметическим элементов, которые остались.

@Triple_H · Регистрация: 03.05.2011

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

В массиве A[1..14] выкинуть самые большие и самые маленькие элементы и заменить их средним арифметическим элементов, которые остались.
заранее спс)

@KaiTheCat · 14.05.2011, 19:50

Pascal

var
   a: array[1..14] of integer;
   i,max,min: byte;
   sr: integer;
begin
   randomize;
   for i:=1 to 14 do
      begin
         a[i]:=random(101);
         write(a[i],' ');
      end;
   writeln;
   max:=1;
   min:=1;
   for i:=1 to 14 do
      begin
         if a[i]>a[max] then max:=i;
         if a[i]<a[min] then min:=i;
      end;
   for i:=1 to 14 do
      if (i<>max) and (i<>min) then inc(sr,a[i]);
   sr:=sr div 12;
   a[max]:=sr;
   a[min]:=sr;
   for i:=1 to 14 do write(a[i],' ');
   readln
end.

@Triple_H · 14.05.2011, 20:14 **[ТС]**

спасибо огромное)))

@Triple_H 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 39
		1
	В массиве A[1..14] выкинуть самые большие и самые маленькие элементы и заменить их средним арифметическим элементов, которые остались. 14.05.2011, 18:03. Показов 1542. Ответов 2 Метки нет (Все метки) В массиве A[1..14] выкинуть самые большие и самые маленькие элементы и заменить их средним арифметическим элементов, которые остались. заранее спс) 0

@Triple_H 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 39
	14.05.2011, 20:14 [ТС]	3
	спасибо огромное))) 0

В массиве A[1..14] выкинуть самые большие и самые маленькие элементы и заменить их средним арифметическим элементов, которые остались.

Решение