Составить программу заполняя масива из 100 чисел случаиними значениями -20 до 20 ....

Question

Составить программу заполняя масива из 100 чисел случаиними значениями -20 до 20 . Почитать количество отрецательних и положительних чисел . помогитеееееееееееееееееееееее

Comments

Паскаль?

---

да

---

помогитье

Answer 1

Var A:array[1..100] of integer;
i,Ko,Kp:integer;
Begin
Ko:=0;
Kp:=0;
Write('Исходный массив: ');
For i:= 1 to 100 do
    Begin
    A[i]:=random(41)-20;
    Write(A[i],' ');
    if A[i]<0 then Ko:=Ko+1<br>    else if A[i]>0 then Kp:=Kp+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',Ko);
WriteLn('Количество положительных: ',Kp);
End.

Comments

Тот же паскаль, просто вы не использовали операнды из .NET. И функцию random чуть-чуть по-другому использовали...

---

Главное, что эта прога на Турбо Паскале пойдёт, а значит и на любом другом

---

Понятно, спасибо.

Answer 2

Var
  arr : array [1.. 100] of integer;
  i, sum1, sum2 : byte;
 
begin
Randomize();
for i := 1 to 100 do
  begin
  arr[i] := random(-20, 20);
  if arr[i] < 0 then
  sum1 += 1
  else if arr[i] > 0 then
  sum2 += 1
  end;writeln('Количсетво отрицательных чисел: ', sum1);
writeln('Количество положительных чисел: ', sum2);end.

Comments

спс но мне паскал надо пишите пожалуста паскале

---

а это не паскаль? о_0

---

Это ABC.net