Question

Помогите пожалуйста.

Answer 1

Напишу только циклы, потому что остальное все одинаковое

а) var pr:integer;
...
pr:=1;
for i:= 1 to 10 do
pr:=pr*a[i];
...
б) var ssq:integer;
...
ssq:=0;
for i:= 1 to 10 do
ssq:= ssq+a[i]*a[i];
...
в) var ar:real;
...
ar:=0;
for i:= 1 to 10 do
ar:=ar+a[i];
ar:=ar/10;
...
г) без доп. переменой
...
for i:= 1 to 10 do
if a[i] mod 10 = 0 then
write(a[i]:4);