Question

Дан массив,состоящий из 20 случайных чисел. Подсчитайте сумму элементов кратных 5. РЕШИТЕ ПОЖАЛУЙСТА!! паскаль

Answer 1

Массив создается и заполняется рандомными числами до 10

var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;

for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.

Answer 2

Для решения данной задачи на Паскале, вам потребуется создать массив из 20 случайных чисел и подсчитать сумму элементов, кратных 5. Вот пример кода, который может помочь вам решить эту задачу:

program summa;
uses Wincrt;

var
  arr: array[1..20] of integer;
  i, sum: integer;

begin
  Randomize;

// Заполняем массив случайными числами
  for i := 1 to 20 do
  begin
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99
  end;

// Вычисляем сумму элементов, кратных 5
  sum := 0;
  for i := 1 to 20 do
  begin
    if arr[i] mod 5 = 0 then
    begin
      sum := sum + arr[i];
    end;
  end;

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

end.

В этом коде мы используем цикл `for` для заполнения массива случайными числами и для подсчета суммы элементов, кратных 5. Затем мы выводим результат на экран.

Обратите внимание, что в данном ответе использованы поисковые результаты, но не указаны конкретные источники, так как они не предоставляют достаточно информации для цитирования.