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

Ответы 3

  • спасибо, это паскаль?
    • Автор:

      thorg5ym
    • 6 лет назад
    • 0
  • да, поставь наилучшее
  • var a:array [1..10] of Integer;   i,temp:Integer;   f:Boolean;begin  Randomize;  for i:=1 to 10 do   a[i]:=Random(100);  for i:=1 to 10 do   write(a[i]:3);   Writeln;  repeat   f:=False;   for i:=1 to 9 do   begin     if a[i]>a[i+1] then      begin         f:=True;         temp:=a[i];         a[i]:=a[i+1];         a[i+1]:=temp;      end;   end;  until not f;  for i:=1 to 10 do   write(a[i]:3);  temp:=0;  for i:=1 to 3 do   temp:=temp+a[i];   Writeln;   Writeln(temp);  Readln;end.
    • Автор:

      beans
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years