Question

Заполните одномерный массив произвольными числами от 0 до 10. Размерностью 10. Вычислите сумму элементов имеющих чётный номер.Нужна программа на Паскаль

Answer 1

Ответ:

var a:array [1..10] of Integer;

i,s:Integer;

begin

Write('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(11);

write (a[i], ' ');

if i mod 2 = 0 then s:=s+a[i]

end;

WriteLn;

Write('Сумма элементов имеющих чётный номер равна ', s)

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая заполняет одномерный массив случайными числами от 0 до 10, вычисляет сумму элементов с четными индексами и выводит результат:

pascalCopy code
program SumOfEvenIndexedElements;

uses
  crt;

const
  SIZE = 10;

var
  arr: array[1..SIZE] of Integer;
  i, sum: Integer;

begin
  randomize; // Инициализация генератора случайных чисел
  
  // Заполнение массива случайными числами от 0 до 10
  for i := 1 to SIZE do
    arr[i] := random(11);
    
  // Вычисление суммы элементов с четными индексами
  sum := 0;
  for i := 2 to SIZE step 2 do
    sum := sum + arr[i];
    
  // Вывод результата
  writeln('Массив:');
  for i := 1 to SIZE do
    write(arr[i], ' ');
    
  writeln;
  writeln('Сумма элементов с четными индексами: ', sum);
  
  readln;
end.

Программа использует генератор случайных чисел randomize и функцию random(11), чтобы заполнить массив arr случайными числами от 0 до 10. Затем она вычисляет сумму элементов с четными индексами, начиная с индекса 2, и выводит исходный массив и результат на экран.