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

1

Ответы и объяснения

Лучший Ответ!
2013-11-25T13:35:07+00:00
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]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.