ТутРешу.Ру

Найти произведение С (16)

Задание:

Найти произведение С (16)

Решение:

Ручной ввод массиваProgram proizv; uses crt; const n=16; Var i: integer; Proiz: longint; k: array[1… n] of integer; BeginProiz: =1; For i: =1 to n do Begin Write ('Элемент массив № ',i, '='); Readln (k[i]); End; For i: =1 to n do Proiz: =proiz*k[i]; Writeln ('Произведение элементов массива равно ', proiz); End. Случайный ввод массиваProgram proizv; uses crt; const n=16; Var i: integer; Proiz: longint; k: array[1… n] of integer; BeginProiz: =1; For i: =1 to n do BeginK[i]: =random (1001) -500; Writeln ('Элемент массив № ',i, '=',k[i]); End; For i: =1 to n do Proiz: =proiz*k[i]; Writeln ('Произведение элементов массива равно ', proiz); End.




Знаете другой ответ?

Отправить свой ответ