В одномерном массиве все элементы этого массива умножить на среднее арифметическое наибольшего и наименьшего элементов этого массива

[Danil_322]

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

[dimon_snake]

const
n=1000;
var
a:array[1..1000] of integer;
i,min,max:integer;
sr:real;
begin
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
end;
sr:=(min+max)/2;
for i:=1 to n do Write(a[i]*sr,' ');
end.

[Danil_322]

А там вроде умножить надо,а в программе высвечиваются одни нули

[dimon_snake]

ну понятно, что нули. Добавь чтение одномерного массива, он же дается

for i:=1 to (здесь размер массива) do Read(a[i])

И, кстати
Ошибочка у меня там

sr:=(min+max) div 2;

Просто, если среднее арифметическое не целое число, тогда массив должен быть из вещественного типа

[Danil_322]

Я так и не вдуплил куда вставить этот код
Помоги,а

[dimon_snake]

const
n=1000;
var
a:array[1..1000] of integer;
i,min,max,sr:integer;
begin
for i:=1 to (размер массива - n) do Read(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
end;
sr:=(min+max) div 2;
for i:=1 to n do Write(a[i]*sr,' ');
end.

[digitalis]

А в условии ни разу не сказано, что массивы целочисленные ... Замени все переменные, кроме i, с integer на real, и все довольны. И в цикле 2 to n . На френа лишее сравнение. И лучше вместо

begin
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
end;

вот так :

  if a[i]>max then max:=a[i] else  if a[i]<min then min:=a[i];

----------------------------------
"Старайтесь делать хорошо. Плохо - само получится" © Конфуций. А может, Бендер О.И.