• Паскаль для решения следующей задачи:

    заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами

    в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.

Ответы 1

  • const    n = 20;var    a: array[1..n] of integer;    i, s: integer;begin    randomize;    for i := 1 to n do     begin        a[i] := random(20) + 20;        write(a[i], ' ');        if i mod 2 = 1 then            s := s + a[i];    end;        writeln();    writeln(s);end.
    • Автор:

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

Войти через Google

или

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

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

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