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

Ответы 1

  • program pr;

    var mas:array[1..40] of integer;

    i, sum:integer;

    begin

    randomize;

    for i:=1 to 40 do mas[i]:=random(20);

    for i:=1 to 40 do if mas[i]<=10 then sum:=sum+mas[i];

    writeln ('сумма равна ', sum);

    readln;

    end.

    Программу проверил все работает

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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