Составить программу заполнения одномерного массива с клавиатуры и подсчета суммы минимального и максимального элементов этого массива.

Question

Информатика

Витана

18 мая, 00:15

Составить программу заполнения одномерного массива с клавиатуры и подсчета суммы минимального и максимального элементов этого массива.

+3

Ответы (1)

Знаете ответ на вопрос?

Леонида · Answer 1

Program sadadasf;

var i, k, l, m, s: integer;

A: Array[1 ... 150] of integer;

begin

Writeln ('Сколько чисел будет в массиве?') ;

readln (k) ;

l:=9999;

m:=-1000;

For i:=1 to k do

begin

Writeln ('Введите элемент массива №', i) ;

Readln (A[i]) ;

If A[i]>m then m:=A[i];

If A[i]
end;

s:=m+l;

Writeln ('Сумма минимального и максимального элемента массива: ', s) ;

end.