Опубликовано 5 лет назад по предмету Информатика от hasestyle

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

Ответ

Ответ дан raf1O5

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 max<d[i]
then max:= d[i];
end;
for i:=1 to n do
begin
if d[i]<>max
then notmax+= 1;
if (d[i]>sum) and (d[i]<min)
then min:= d[i];
end;
if min<>10000
then writeln('Минимальный среди элементов, больших суммы: ',min)
else writeln('Минимальный среди элементов, больших суммы: Не найдено');
writeln('Количество элементов, не равных максимальному: ',notmax);
end.
Язык PascalABC

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт

Другие вопросы

Английский язык - 4 дня назад

Можете помочь нужен рассказ на английском что моя мама работает на валберис

Физика - 1 неделя назад

Рассчитай растояние от поверхности земли, на котором сила притяжения, действующая на тело будет 5,5 раз меньшле чем на поверхности земнли. радиус земли прнять равным 6400 помогите!!!!!!!!!!!

Физика - 1 неделя назад

Какое количество теплоты потребуется чтобы расплавить 100 г льда взятого при температуре -5 а затем полученую воду нагреть до 20 градусов.

Физика - 1 неделя назад

Сколько дров необходимо для того чтобы нагреть 50 л воды в стальном котле массой 10 кг от 15 градусов до 65 градусов? потерями тепла пренебречь.

Физика - 1 неделя назад

Какое количество теплоты понадобится для того, чтобы в алюминиевом чайнике массой 700г вскипятьть 2кг воды? начальная температура воды 20 градусов. помогите пожалуйса решить задачу

Что ты хочешь узнать?

Задай вопрос