Информатика, опубликовано 2018-08-22 19:24:58 by Гость

Составить программу нахождения количества положительных элементов в массиве из n вещественных чисел

Ответ оставил Гость

Const
  max = 20;

var
  arr : array [1..max] of real;
  count, i : integer;
begin
  for i := 1 to max do
    arr[i] := random(100) - 50;

  for i := 1 to max do
    write(arr[i], );
  writeln();

  for i := 1 to max do
    if arr[i] > 0 then
       count := count + 1;

  writeln(Количество положительных чисел: , count);
end.

Не нашли ответа?

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