Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски Type LinMass =...

Question

Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски
Type LinMass = Array[1..100] Of Integer;
Var A : LinMass; N, i, max, min : Integer;
begin
Write('Количество элементов массива? '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[I]);
End;
max:=1; min:=__;
For I := 2 To N Do
begin
if a[i]>a[max] then max:=i;
if a[i] end;
writeln('Ответ ', (a[max]__a[min])/2 :7:2)
end.

Comments

*строки

---

ну и наверно ищется среднее арифметическое значений поэтому (a[max] + a[min]) / 2 :7:2

---

min = 1 потому что нам необходимо начальное значение, а так как цикл начинается со второго значения то начальное значение будет такое же что и у max тоесть 1, в данном случае 1 это индекс в массиве, а не значение!

---

спасибо огромное! но только я всё равно ничего не понимаю...

---

посмотри на строку if a[i] end; ты ее правильно написала??

---

Type LinMass = Array[1..100] Of Integer;Var A : LinMass; N, i, max, min : Integer;beginWrite('Количество элементов массива? '); ReadLn(N);For I := 1 To N DoBeginWrite('Введите A[', I, '] '); ReadLn(A[I]);End;max:=1; min:=1;For I := 2 To N Dobeginif a[i]>a[max] then max:=i;if a[i]<a[min] then min:=i; end;writeln('Ответ: ', (a[max] + a[min])/2 :7:2)end.

---

Должно быть что типо такого!!

---

спасибо)) а сколько у Вас стоит 1 задача, если попросить Вас помочь решить другие?

---

я берусь только за то что могу решить, цена не важна

---

Вы меня очень спасаете)

Answer 1

В строке max:=1; min:=a[1]; Так как следующий за этой записью цикл начинается со 2 элемента. А так все верно.