Question

помогите решить задачи по информатике через паскаль
1)Массив А вводится с клавиатуры. Найти сумму его элементов . Размер произвольный
2)Найти произведение элементов , кратных 3 в массиве заданном датчиком случайных чисел на интервале (-28,27). Размер произвольный

Answer 1

1) const N=3; // количество элементов в массиве
var A:array[1..N] of integer; i,s:integer;

BEGIN
for i:=1 to N do
readln (a[i]);
s:=0;
for i:=1 to N do
s:= s+a[i];
writeln ('Сумма элементов массива ',s);
END.

Answer 2

2)
const n=10;
var a:array[1..n] of integer;
i,p:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(56)-28;
 write(a[i]:4);
 end;
writeln;
p:=1;
for i:=1 to n do
 if a[i] mod 3 = 0 then p:=p*a[i];
if p<>1
 then writeln('p = ',p)
 else writeln('В массиве нет элементов, кратных 3');
end.

Пример:
   1 -28  12 -10 -17  -3  16 -16   8 -14
p = -36