• массивы
    Дан массив 50 целых чисел. Элементы массива могут принимать целочисленные значения от -40 до 40. Составьте программу вычисления суммы элеменов, меньших первого элемента.

Ответы 4

  • Random(A); Потому что всегда от 0 до A-1
    • Автор:

      pippy0e0n
    • 5 лет назад
    • 0
  • Учтем.
    • Автор:

      salvatore
    • 5 лет назад
    • 0
  • program wk;var mas:array [1..50] of integer;s,i:integer;begin s:=0;  for i:=1 to 50 do   begin    mas[i]:=random(81)-40;    if mas[i]<mas[1] then s:=s+mas[i];   end; writeln(s)end.
  • Const   N = 50;Var   A:array[1..N] of integer;   i,S:integer;BeginWrite('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(81)-40;    Write(A[i],' ');    if A[i]<A[1] then       S:=S+A[i];    End;WriteLn;WriteLn('S = ',S);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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