Задание:
Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать количество отрицательных, положительных и нулевых элементов.
Решение:
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.
Знаете другой ответ?