Question

ПОМОГИТЕ С ПАСКАЛЕМ: СОЗДАТЬ ПРОГРАММУ, КОТОРАЯ СЧИТАЕТ СУММУ И ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ МАССИВА СЛУЧАЙНЫМ ОБРАЗОМ И С КЛАВИАТУРЫ.

Answer 1

Var 
a: array[1..100] of integer; 
n, i: byte; 
sum, p: integer;
begin 
writeln('1. Случайным образом'); 
Randomize; 
write('Введите размер массива: '); 
readln(n); 
sum:=0; p:=1; 
for i:=1 to n do   
begin     
a[i]:=Random(101)-50;     
write(a[i]:4);     
sum:=sum+a[i];     
p:=p*a[i];   
end; 
writeln; 
writeln('Сумма = ', sum:5); 
writeln('Произведение = ', p:5); 
sum:=0; p:=1; 
writeln('-------'); 
writeln('2. С клавиатуры'); 
for i:=1 to n do   
begin   
write('Элемент ', i, ' = ');   
readln(a[i]);   
sum:=sum+a[i];   
p:=p*a[i];   
end; 
writeln('Сумма = ', sum:5); 
writeln('Произведение = ', p:5);
end.