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

Question

Софья Позднякова

Информатика

16 сентября, 20:10

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

София Львова · Answer 1

Uses crt;

const n=10;

var a:array[1 ... n] of integer;

s, i, min, k:integer;

begin

min:=1000;

for i:=1 to n do

begin

readln (a[i]);

if a[i]

end;

s:=0;

for i:=k+1 to n do

s:=s+a[i];

writeln (s);

end.