Дан массив D(n). Найти минимальный среди элементов, больших суммы,и найти количество элементов, не равных максимальному. Написать программу в Паскале,пожалуйста)

Есть ответ
12.12.2022
326

Ответ


program raf105;

const

 n = 10;

var

 d:array[1..n] of integer;

 min,max,sum,notmax,i: integer;

begin

max:= -10000;

min:= 10000;

writeln('Заполните массив');

for i:=1 to n do

begin

 readln(d[i]);

 sum+= d[i];

 if maxsum) and (d[i]


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.