Question

Заполнить массив случайным образом и вывести на экран сумму нечетных элементов.В паскале)

Answer 1

Var b,c,d:integer;
a:array [1..100] of integer;
 begin
   randomize;
      writeln('введите длину массива');
      readln(b);
        for c:=1 to b do begin
        a[c]:=random(1000);
        writeln(a[c]); 
         if a[c] mod 10 <> 0 then d:=d+a[c];
         end;
     writeln('сумма нечётных элементов ',d);
   end.

Answer 2

Program mass;
uses crt;
const n = 100;
var massiv:array[1..n] of integer;
     i,sum:integer;
begin
sum:=0;
for i:=1 to n do begin
   massiv[i]:= trunc(Random(100));
   if massiv[i] mod 2 <> 0 then
      sum:= sum + massiv[i];
end;
writeln('Сумма нечетных элементов = ',sum);
end.

Answer 3

Я могу помочь вам с вашим вопросом о программировании на Паскале. Вот один из возможных способов решить вашу задачу:

program SumOfOddElements;
var
  arr: array [1..10] of integer; // объявляем массив из 10 целых чисел
  i, sum: integer; // объявляем переменные для индекса и суммы
  rnd: Random; // объявляем объект для генерации случайных чисел
begin
  rnd := Random.Create; // создаем объект
  sum := 0; // инициализируем сумму нулем
  for i := 1 to 10 do // цикл по элементам массива
  begin
    arr [i] := rnd.Next (1, 100); // заполняем массив случайными числами от 1 до 100
    writeln ('arr [', i, '] = ', arr [i]); // выводим элемент на экран
    if arr [i] mod 2 = 1 then // если элемент нечетный
      sum := sum + arr [i]; // добавляем его к сумме
  end;
  writeln ('Сумма нечетных элементов = ', sum); // выводим сумму на экран
  rnd.Free; // освобождаем память
end.

Этот код использует класс Random из стандартной библиотеки Паскаля для генерации случайных чисел. Вы можете найти больше информации о нем [здесь](https://stackoverflow.com/questions/2370132/filling-an-array-with-random-number). Также вы можете использовать функцию Randomize и функцию Random, которые описаны [здесь](https://stackoverflow.com/questions/35355521/how-to-add-odd-numbers-from-a-list-in-python).

Если вы хотите узнать больше о том, как работать с массивами в Паскале, вы можете посмотреть [этот](https://stackoverflow.com/questions/20380991/fill-an-array-with-random-numbers) источник. Там вы найдете примеры и объяснения различных операций с массивами, таких как инициализация, сортировка, поиск и т.д.

Надеюсь, что это было полезно для вас. Если у вас есть еще вопросы, я буду рад ответить на них.