В массиве из 10 целых чисел подсчитать сумму
элементов, стоящих правее минимального.Написать программу на языке Паскаль.Помогите, пожалуйста.

Ответы (1)

Ионита 23.04.2025 1

Var a: array [1..10] of Integer;
i, min, sum: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(50);
writeln('[', i, '] => ', a[i]);
end;
min := a[1];
for i := 2 to 10 do
if (min > a[i]) then min := a[i];
i := 1;
while ((i = 10) and (a[i] min)) do
begin
sum := sum + a[i];
inc(i);
end;
writeln(sum);
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

В массиве из 10 целых чисел подсчитать сумму элементов, стоящих правее минимального.Написать программу на языке Паскаль.Помогите, пожалуйста.

Думаешь ответы не верны?

В массиве из 10 целых чисел подсчитать сумму
элементов, стоящих правее минимального.Написать программу на языке Паскаль.Помогите, пожалуйста.