Не могу решить задачу по информатике

Question

Не могу решить задачу по информатике

саша один Ученик (95), на голосовании 11 месяцев назад

Помогите пожалуйста решить. Дан массив количество элементов и сами элементы вводятся с клавиатуры найдите сумму максимально и минимального элемента. паскаль

Answer 1

Pascal

var i, maxi, mini: integer;
a: array [1..10] of integer;
begin
maxi:=1;
mini:=1;
for i:=1 to 10 do
begin
a[i]:=random (90);
write (a[i]:4);
if a[i] > a[maxi] then maxi:=i;
if a[i] < a[mini] then mini:=i;
end;
writeln;
writeln ('Сумма максимального и минимального элементов массива = ', a[maxi] + a[mini] :4);
end.