Составить программу на Паскале:
Заполнить массив ВМ случайными числами из диапазона от 1 до 150. Размерность массива 20.
Распечатать массив на экране в строку. Найти сумму всех нечётных чисел массива. Результат вывести на экран в отдельной строке.
Ответы
Ответ дал:
0
- program n_1;
- const
- n = 20;
- var
- a: array [1..n] of integer;
- i, sum: integer;
- begin
- sum := 0;
- for i := 1 to n do
- begin
- a[i] := random(150) + 1;
- write('a[', i, '] = ', a[i], '; ');
- if odd(a[i]) then inc(sum, a[i]);
- end;
- writeln ();
- write('sum = ', sum);
- end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад