УМОЛЯЮ ЭТО !! program massiv; uses crt;

const n=10; var s, i: integer; a: array [1..n] of integer;

begin

clrscr;

randomize;

writeln ('Исходный массив: '); for i:=1 to n do begin a[i]:=random(10);

writeln ('a[',i,']=',a[i]);

end; s:=0; for i:=1 to n do s:=s+a[i]; writeln ('Сумма всех элементов массива S=',s);

readln;

end.
2. Изменить программу таким образом, чтобы:
1) массив состоял из 15 элементов вещественного типа;
2) значения элементов массива должны меняться в интервале от 0 до 5;
3) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма.

Nagornjk    2   11.04.2022 04:07    0