Вычисление произведения элементов массива

Задача. Вычислить произведение элементов массива из 10 элементов.

Произведение обозначается:

Решение. p:=1;

for i:=1 to 10 do p:=p*a[ i ];

ВЫЧИСЛЕНИЕ ОДНОГО МАССИВА ЧЕРЕЗ ДРУГОЙ

Задача. Даны два массива А(10) и В(10). Вычислить массив С(10) по формуле: c i = a i + b i

Решение. Схема условия:

program prim;

var i:integer;

a,b,c:array[1..10] of real;

begin

for i:=1 to 10 do read(a[ i ]);

for i:=1 to 10 do read(b[ i ]);

for i:=1 to 10 do c[ i ]:=a[ i ]+b[ i ];

writeln('массив c');

for i:=1 to 10 do write(c[ i ]:7:2);

end.