Question

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

Answer 1

program mas_sum_1_i_2_polovin;

const

n=20;

var

a:array[1..n] of integer;

i,s:integer;

begin

for i:=1 to n do

begin

a[i]:= random(901)+100;

write(a[i],' ');

end;

writeln;

s:=0;

for i:=1 to n div 2 do

s:=s+a[i];

writeln(s);

s:=0;

for i:=n div 2 to n do

s:=s+a[i];

writeln(s);

readln;

end.

Answer 2

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

pascalCopy code
program SumOfArrayHalves;

const
  N = 20;
  MIN_VALUE = 100;
  MAX_VALUE = 1000;

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

procedure FillArrayWithRandomNumbers();
var
  i: Integer;
begin
  Randomize; // Инициализируем генератор случайных чисел
  for i := 1 to N do
    arr[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;
end;

procedure CalculateSums();
var
  i: Integer;
begin
  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];
end;

begin
  FillArrayWithRandomNumbers();
  CalculateSums();

  // Вывод результатов
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Сумма элементов в первой половине массива: ', sumFirstHalf);
  writeln('Сумма элементов во второй половине массива: ', sumSecondHalf);
end.

Программа заполняет массив arr из 20 элементов случайными числами в диапазоне от 100 до 1000. Затем она находит сумму элементов в первой половине массива (sumFirstHalf) и сумму элементов во второй половине массива (sumSecondHalf) и выводит результаты на экран. Обратите внимание, что в языке Паскаль индексы массивов начинаются с 1, поэтому мы используем 1..N в определении массива.