Question

ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив из 20 элементов (значения элементов задаются случайным образом). Вывести массива на экран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива. паскаль массивы

Answer 1

Program pr;
Var a:array[1..20] of integer;
    i,sum:integer;
    sr:real;
Begin
for i:=1 to 20 do a[i]:=random(100);
for i:=1 to 20 do Write(a[i],';');

sr:=0;
for i:=1 to 10 do sr:=sr+a[i];
sr:=sr/10;

sum:=0;
for i:=11 to 20 do sum:=sum+a[i];
Writeln;

Writeln('srednee=',sr);
Writeln('summa=',sum);
end.

Answer 2

Конечно, я могу помочь вам с этим. Вот пример кода на языке программирования Pascal, который создает одномерный массив из 20 элементов, заполняет его случайными значениями, выводит массив на экран, а затем находит среднее арифметическое элементов первой половины массива и сумму элементов второй половины:

program ArrayExample;

const
  arraySize = 20;

var
  myArray: array[1..arraySize] of Integer;
  i, sumSecondHalf, sumFirstHalf, averageFirstHalf: Integer;

begin
  // Заполняем массив случайными значениями
  Randomize;
  for i := 1 to arraySize do
  begin
    myArray[i] := Random(100); // Измените 100 на максимальное значение элемента
  end;

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

// Находим среднее арифметическое элементов первой половины массива
  sumFirstHalf := 0;
  for i := 1 to arraySize div 2 do
  begin
    sumFirstHalf := sumFirstHalf + myArray[i];
  end;
  averageFirstHalf := sumFirstHalf div (arraySize div 2);

// Находим сумму элементов второй половины массива
  sumSecondHalf := 0;
  for i := (arraySize div 2) + 1 to arraySize do
  begin
    sumSecondHalf := sumSecondHalf + myArray[i];
  end;

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

readln;
end.

Обратите внимание, что в коде используется функция `Random`, которая генерирует случайные целые числа от 0 до указанного значения (в данном случае, 100). Вы можете изменить это значение в зависимости от ваших предпочтений.