Заполнить массив случайными числами

Question

Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать количество отрицательных, положительных и нулевых элементов.

Answer 1

71

svetlana-mikhaylova

22 марта 2023

Var a: array [0… 10] of integer; i, p, o, n: integer; begin for i: =0 to 10 do begin a[i]: =random (100) — 50; write (a[i], '); if (a[i] > 0) then inc (p); if (a[i]=0) then inc (n); if (a[i] < 0) then inc (o); end; writeln (); writeln (p, ', n, ', o); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: