Паскаль АВС.net массивы !Создайте массив А [1..8] с помощью генератора случайных чисел с...

Question

Паскаль АВС.net массивы !
Создайте массив А [1..8] с помощью генератора случайных чисел с элементами от -10 до +10 и выведите его на экран. Подсчитайте количество отрицательных элементов массива.

Answer 1

Const
   N = 8;
Var
   A:array[1..N] of integer;
   i,ko:integer;
Begin
Write('Исходный массив:');
ko:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i]<0 then ko:=ko+1;<br>    End;
WriteLn;
WriteLn('Кол-во отрицательных элементов массив: ',ko);
End.

Пример:
Исходный массив: -6 -6 -6 5 7 6 10 -3
Кол-во отрицательных элементов массив: 4

Comments

random(11)-10 никогда не даст 10

---

Опечатка... 21-10 должно быть

---

Нету кнопки "исправить"

---

Ответ был добавлен 15 часов назад

---

Благодарю))

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(8,-10,10);
  Writeln('Кол-во отрицательных: ',a.Println.Where(x->x<0).Count)<br>end.

Пример
2 -6 3 -2 1 6 -1 9
Кол-во отрицательных: 3

Comments

Компилируется, не понимаю почему отмечали ошибочным.

---

А кстати Println там зачем?

---

типа покороче. ясно