Question

Создать одномерный вещественный массив. Определить количество отрицательных элементов массива. Код в паскаль.

Answer 1

Const n=10;
var a:array[1..n] of real; 
i,k:integer;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin 
a[i]:=random*10-5;
 write(a[i]:6:2);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]<0 then k:=k+1;
writeln('Количество отрицательных элементов = ',k);
end.

Answer 2

Конечно, вот пример кода на языке Pascal, который создаёт одномерный вещественный массив и определяет количество отрицательных элементов в этом массиве:

program CountNegativeElements;

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

var
  arr: array[1..N] of real; // Объявление массива
  i, negativeCount: integer; // Переменные для цикла и подсчёта отрицательных элементов

begin
  // Инициализация массива случайными значениями
  randomize;
  for i := 1 to N do
  begin
    arr[i] := random * 20 - 10; // Генерация случайных чисел от -10 до 10
    writeln('arr[', i, '] = ', arr[i]); // Вывод элементов массива
  end;

// Подсчёт отрицательных элементов
  negativeCount := 0;
  for i := 1 to N do
  begin
    if arr[i] < 0 then
      negativeCount := negativeCount + 1;
  end;

writeln('Количество отрицательных элементов в массиве: ', negativeCount);
  readln;
end.

Этот код создаёт массив `arr` из 10 вещественных чисел, генерируя случайные числа в диапазоне от -10 до 10. Затем программа считает количество отрицательных элементов в массиве и выводит результат на экран.

Вы можете изменить значение `N` и диапазон генерируемых случайных чисел, чтобы подстроить программу под свои нужды.