Untitled

mail@pastecode.io avatar
unknown
plain_text
23 days ago
971 B
1
Indexable
Never
program CountZeroElements;
const
  размер = 10;
var
  массив: array[1..размер] of real;
  i: integer;
  количество_нулей: integer;
begin
  количество_нулей := 0;
  
  // Заполняем массив случайными числами в интервале [-1,1]
  Randomize;
  for i := 1 to размер do
  begin
    массив[i] := Random * 2 - 1;
    // Подсчитываем количество нулевых элементов
    if массив[i] = 0 then
      количество_нулей := количество_нулей + 1;
  end;

  // Выводим полученный массив и количество нулевых элементов
  writeln('Сгенерированный массив:');
  for i := 1 to размер do
    write(массив[i]:0:2, ' ');
  writeln;
  writeln('Количество нулевых элементов: ', количество_нулей);
end.
Leave a Comment