Задание:
1. Для действительной таблицы х от 1 … 10 найти сумму всех отрицательного элементов. 2. Для действительной таблицы х от 1 … 10 найти произведениевсех элементов. 3. Для действительной таблицы х от 1 … 10 найты произведение всех нечетных элементов.
Решение:
//первая программаconst n=10; var x: array[1… n] of real; i: integer; Summ: real; begin randomize; Summ: =0; for i: =1 to n do begin x[i]: =(random (101) — 50) / 10; write (x[i], '); if x[i] < 0 then Summ: =Summ+x[i]; end; writeln; writeln ('Summ=', Summ); readln; end. //вторая программаconst n=10; var x: array[1… n] of real; i: integer; Pr: real; begin randomize; Pr: =1; for i: =1 to n do begin x[i]: =(random (101) — 50) / 10; write (x[i], '); Pr: =Pr*x[i]; end; writeln; writeln ('Pr=', Pr); readln; end. // третья программа const n=10; var x: array[1… n] of integer; i: integer; Pr: real; begin randomize; Pr: =1; for i: =1 to n do begin x[i]: =(random (101) — 50); write (x[i], '); if x[i] mod 2=1 then Pr: =Pr+x[i]; end; writeln; writeln ('Pr=', Pr); readln; end.
Знаете другой ответ?