Untitled

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

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