Массив P размером 20 заполняется случайными целыми числами из интервала (-100,120).

Массив P размером 20 заполняется случайными целыми числами из промежутка (-100,120). Отыскать количество неотрицательных элементов массива.

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var p:=ArrRandom(20,-100,120); p.Println;
  Writeln('Неотрицательных: ',p.Where(x-gt;xgt;=0).Count)
end.

Пример
-76 -47 101 31 119 109 -11 1 113 114 40 34 13 51 49 88 21 38 -58 -100
Неотрицательных: 15
Program n1;
var a: array[1..20] of integer;
var k,i: integer;
begin
k:=0;
write('массив: ');
for i:=1 to 20 do begin
a[i]:=random(221)-100;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do if a[i]gt;=0 then k:=k+1;
write('кол-во неотриц. частей: ',k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт