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

212

320

Посмотреть ответы 2

Ответы на вопрос:

Rozeta2003

Информатика

4,7(66 оценок)

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]< l then l: =a[i]; end; s: =m+l; writeln('сумма минимального и максимального элемента массива: ',s); end.