Question

Составте программу паскаль массивы Объявите массив целых чисел из 20 элементов. · Назначьте отрицательное случайное значение в диапазоне от -10 до -1 каждому элементу четного массива, а положительное случайное значение в диапазоне от 1 до 10 - нечетному. · Отображать только те элементы массива, значения которых являются четными числами. · Расчет и отображение суммы и среднего арифметического всех элементов на экране. · Отобразите те элементы массива, которые больше 4.

Answer 1

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

i,s,k:integer;

cr: real;

begin

 for i:=1 to 20 do

   if i mod 2 = 0 then a[i]:=random(-10,-1) else

     a[i]:=random(1,10);

   for i:=1 to 20 do  

   if a[i] mod 2 = 0 then begin write (a[i],' ');

   s:=s+a[i];

   k:=k+1; end;

   cr:=s/k;

   writeln;

   writeln('s=',s);

   writeln(cr);

    for i:=1 to 20 do  

   if a[i] >4 then write (a[i],' ');

end.

Answer 2

Вот программа на языке Pascal, которая выполняет указанные вами действия:

pascalCopy code
program ArrayExample;

const
  N = 20; // Размер массива

var
  arr: array[1..N] of integer; // Объявление массива
  i, sum, count: integer;

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

  // Заполнение массива случайными значениями
  for i := 1 to N do
  begin
    if i mod 2 = 0 then
      arr[i] := Random(10) + 1 // Отрицательные значения для четных элементов
    else
      arr[i] := Random(10) - 10; // Положительные значения для нечетных элементов
  end;

  // Вывод четных элементов и подсчет суммы
  sum := 0;
  count := 0;
  writeln('Четные элементы массива:');
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then
    begin
      writeln(arr[i]);
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;

  // Вывод суммы и среднего арифметического четных элементов
  if count > 0 then
  begin
    writeln('Сумма четных элементов:', sum);
    writeln('Среднее арифметическое четных элементов:', sum / count:0:2);
  end
  else
  begin
    writeln('Четных элементов нет в массиве.');
  end;

  // Вывод элементов массива, которые больше 4
  writeln('Элементы массива, большие 4:');
  for i := 1 to N do
  begin
    if arr[i] > 4 then
    begin
      writeln(arr[i]);
    end;
  end;
end.

Эта программа создает массив, заполняет его случайными значениями, выводит четные элементы, вычисляет и выводит сумму и среднее арифметическое четных элементов, а также выводит элементы массива, которые больше 4.