Предмет: Информатика, автор: mashasurnina0

В массиве случайных чисел посчитать количество положительных элементов на языке паскаль

Ответы

Автор ответа: Skillgets
0
program array1;uses crt;var kol,i,N:integer; a:array [1..100] of integer;beginrandomize;write ('Vvedite kolichestvo elementov');read (N);kol:=0;for i:=1 to N dobegina[i]=random (100);if a[i]>0 then kol:=kol+1;end;write ('Kolichestvo elementov =,' kol);end.
Автор ответа: 2000vlados
0
мои глаза...
Автор ответа: Аноним
0
Текст необходимо отфороматировать
Автор ответа: Аноним
0
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.

Пример
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8
Похожие вопросы