Задание:
Составьте программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и подсчитывает количество отрицательных элементов. Язык Pascal abc
Решение:
Var a: array [1… 16] of integer; i, c: integer; begin randomize; for i: =1 to 16 do a[i]: =random (41) — 20; c: =0; for i: =1 to 16 do if a[i] < 0 then c: =c+1; writeln (c); end.
Знаете другой ответ?