Question

Напишите программу, которая заполняет массив из 20 случайных элементов на отрезке [10;1000] и находит отдельно сумму элементов в первой и второй половинах массива.( На языке Паскаль, спасибо!)

Answer 1

var a : array [1..20] of integer;

i, s1, s2: integer;

begin

s1 := 0;

s2 := 0;

randomize;

for i := 1 to 20 do

begin

a[i] := random(991) + 10;

if (i < 11) then

s1 += a[i]

else

s2 += a[i];

end;

writeln(s1);

writeln(s2);

end.

Answer 2

Конечно! Вот программа на языке Паскаль, которая заполняет массив из 20 случайных элементов на отрезке [10;1000] и находит отдельно сумму элементов в первой и второй половинах массива:

pascalCopy code
program SumOfArrayHalves;

const
  N = 20;

var
  arr: array[1..N] of Integer;
  i: Integer;
  sumFirstHalf, sumSecondHalf: Integer;

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

  // Заполняем массив случайными числами от 10 до 1000
  for i := 1 to N do
    arr[i] := Random(991) + 10; // Random(X) генерирует случайное число от 0 до X-1

  // Выводим массив на экран
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Вычисляем суммы элементов в первой и второй половинах массива
  sumFirstHalf := 0;
  sumSecondHalf := 0;
  for i := 1 to N div 2 do
    sumFirstHalf := sumFirstHalf + arr[i];

  for i := N div 2 + 1 to N do
    sumSecondHalf := sumSecondHalf + arr[i];

  // Выводим суммы на экран
  writeln;
  writeln('Сумма элементов в первой половине массива: ', sumFirstHalf);
  writeln('Сумма элементов во второй половине массива: ', sumSecondHalf);

  readln;
end.

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