Question

Решить задачу в Pascal Срочно!! 
Дан массив x1,.... x100.
Найти сумму эелементво массива от x1 до Xmin

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]<min
   then
    begin
     min:=a[i];
     k:=i;
    end;
 for i:=1 to k do
  s:=s+a[i];
 writeln(s);
 readln
end.

Блок схема кривая, но вроде понятная:

Answer 2

сайт

Answer 3

Можешь дать если не сложно?

Answer 4

Тут нельзя ссылки оставлять, вроде

Answer 5

Ну напиши как то так): znanija.com

Answer 6

лс смотри