• составьте программу которая формирует массив из 40 случайных целых чисел то 0 до 20 и вычисляет сумму чисел не привышающих 10

Ответы 1

  • var

    a: array[1..40] of integer;

    i, sum: integer;

    begin

    sum := 0;

    for i:=1 to 40 do

    begin

    a[i]:= random(21);

    if a[i] <= 10

    sum:= sum + a[i]

    end;

    writeln (sum);

    end.

    • Автор:

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

Войти через Google

или

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

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

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