Задание:
Составьте программу, которая фотрмирует массив из 15 случайных целых чисел от -10 до 10. Найти произведение всех элементов массива, модуль которыхменьше 3. На экран выводятся исходные значения и результаты вычеслений.
Решение:
Uses crt; const n=15; var a: array[1… n] of integer; pr,i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (20) -10; write (a[i],'); end; writeln; pr: =1; for i: =1 to n doif abs (a[i]) <3 then pr: =pr*a[i]; writeln (pr); end.
Знаете другой ответ?