Question

Язык Паскаль . Создать числовой массив A[1..N] . Значение N вводится с клавиатуры . Все отрицательные элементы устранить , а так же определить среднее арифметическое всех элементов . Результат вывести на экран .

Answer 1

Var A: Array of Integer;
    N: Integer;
    i: Integer;
    sum: Integer;
Begin
  Randomize;
  Write('N = ');
  ReadLn(N);
  SetLength(A, N + 1);
  WriteLn('Массив:');
  For i := 1 To N Do
  Begin
    A[i] := Random(50) - 25;
    Write(A[i] + ' ');
  End;
  WriteLn;
  WriteLn('Без отрицательных:');
  For i := 1 To N Do  Begin
    If A[i] >= 0 Then
      Write(A[i] + ' ');
  End;
  sum := 0;
  WriteLn;
  WriteLn('Среднее арифметическое:');
  For i := 1 To N Do  Begin
    sum := sum + A[i];
  End;
  WriteLn(sum / N);
End.

Answer 2

Создание числового массива в языке Паскаль

Для создания числового массива A[1..N] в языке Паскаль, где значение N вводится с клавиатуры, можно использовать следующий код:

program ArrayExample;
var
  A: array[1..N] of Integer;
  N, i: Integer;
begin
  Write('Введите значение N: ');
  Readln(N);
  
  for i := 1 to N do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;
  
  // Ваш код для устранения отрицательных элементов и определения среднего арифметического
  
end.

В этом коде мы объявляем массив `A` с размерностью от 1 до `N` и переменные `N` и `i` для управления циклами. Затем мы запрашиваем у пользователя значение `N` с помощью `Write` и `Readln`. Далее, с помощью цикла `for`, мы запрашиваем у пользователя каждый элемент массива `A` и сохраняем его в соответствующей ячейке массива.

Устранение отрицательных элементов и определение среднего арифметического

Чтобы устранить отрицательные элементы из массива `A` и определить среднее арифметическое всех элементов, мы можем использовать следующий код:

program ArrayExample;
var
  A: array[1..N] of Integer;
  N, i, sum, count: Integer;
  average: Real;
begin
  Write('Введите значение N: ');
  Readln(N);
  
  for i := 1 to N do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;
  
  // Устранение отрицательных элементов
  for i := 1 to N do
  begin
    if A[i] < 0 then
      A[i] := 0;
  end;
  
  // Определение среднего арифметического
  sum := 0;
  count := 0;
  for i := 1 to N do
  begin
    sum := sum + A[i];
    count := count + 1;
  end;
  
  average := sum / count;
  
  // Вывод результата на экран
  Writeln('Среднее арифметическое всех элементов: ', average);
  
  // Ваш код для вывода массива A на экран
  
end.

В этом коде мы добавили два дополнительных цикла. Первый цикл проходит по всем элементам массива `A` и заменяет отрицательные значения на 0. Второй цикл вычисляет сумму всех элементов массива `A` и подсчитывает количество элементов. Затем мы вычисляем среднее арифметическое, разделив сумму на количество элементов. Наконец, мы выводим среднее арифметическое на экран с помощью `Writeln`.

Примечание: В коде выше необходимо добавить код для вывода массива `A` на экран. Это может быть выполнено с помощью цикла и команды `Writeln` или `Write`.