Question

Составить программу на Паскале: Заполнить массив ВМ случайными числами из диапазона от 1 до 150. Размерность массива 20.Распечатать массив на экране в строку. Найти сумму всех нечётных чисел массива. Результат вывести на экран в отдельной строке.

Answer 1

1. program n_1;
2. const
3.  n = 20;
4. var
5.  a: array [1..n] of integer;
6.  i, sum: integer;
7. begin
8.  sum := 0;
9.  for i := 1 to n do  
10.  begin
11.    a[i] := random(150) + 1;
12.    write('a[', i, '] = ', a[i], '; ');
13.    if odd(a[i]) then inc(sum, a[i]);  
14.  end;
15.  writeln ();
16.  write('sum = ', sum);
17. end.

Answer 2

Для составления программы на Паскале, удовлетворяющей вашему запросу, вам понадобится среда программирования, поддерживающая язык Паскаль (например, Free Pascal). Ниже приведена программа, которая выполняет указанные вами шаги:

pascalCopy code
program SumOfOddNumbers;

const
  ARRAY_SIZE = 20;

var
  B: array[1..ARRAY_SIZE] of Integer;
  i, sum: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполнение массива ВМ случайными числами из диапазона от 1 до 150
  for i := 1 to ARRAY_SIZE do
    B[i] := Random(150) + 1;

  // Распечатываем массив на экране в строку
  Write('Массив B: ');
  for i := 1 to ARRAY_SIZE do
    Write(B[i], ' ');

  // Найдем сумму всех нечетных чисел массива
  sum := 0;
  for i := 1 to ARRAY_SIZE do
  begin
    if B[i] mod 2 <> 0 then
      sum := sum + B[i];
  end;

  // Выведем результат на экран
  Writeln;
  Writeln('Сумма всех нечетных чисел в массиве: ', sum);
end.

Программа объявляет массив B размерности 20, заполняет его случайными числами от 1 до 150, печатает массив на экране, затем находит сумму всех нечетных чисел в массиве и выводит результат на экран в отдельной строке.