Question

Se considera tabloul A [1..N] de numere intregi. N <=100 scrie in paschal un program care calculeaza sums elementelor mai mari ca elementul minim. Va rog ajutor!!!!!

Answer 1

program suma_mai_mare_minim;
type vector=array[1..100] of integer;
var v:vector;
n,min,i,s:integer;

begin

{citirea datelor}
repeat
write('n=');readln(n);
until (n<=100);

for i:=1 to n do
begin
write('v[',i,']=');readln(v[i]);
end;

{determinare element minim}
min:=v[1];
for i:=2 to n do
if(v[i]<min) then min:=v[i];

{calcul suma}
s:=0; {initializare suma}
for i:=1 to n do
if v[i]>min then s:=s+v[i];

writeln('Suma elementelor mai mari ca elementul minim:',s);

readln;
end.