Дан массив x1, ... x100.

Найти сумму эелементво массива от x1 до Xmin

Question

Информатика

Антроп

26 июля, 15:51

Дан массив x1, ... x100.

Найти сумму эелементво массива от x1 до Xmin

+5

Ответы (1)

Знаете ответ на вопрос?

Степаня · Answer 1

Var

n, i, k, s, min:longint;

a:array[1 ... 100] of longint;

begin

Write ('Write size array: ') ; readln (n) ;

for i:=1 to n do

begin

a[i]:=Random (50) ;

write (a[i]:4) ;

end;

min:=a[1];

k:=1;

s:=0;

for i:=1 to n do

if a[i]
then

begin

min:=a[i];

k:=i;

end;

for i:=1 to k do

s:=s+a[i];

writeln (s) ;

readln

end.

Дан массив x1, ... x100.Найти сумму эелементво массива от x1 до Xmin

Дан массив x1, ... x100.

Найти сумму эелементво массива от x1 до Xmin