Кто знает?

Question

В массиве Н (10) найти сумму и произведение всех элементов. Ввод массива с клавиатуры. Написать программу на языке паскаль.

Сергей Литвиненко · Accepted Answer

var 
 h: array [1..10] of integer; 
 c, s, p: longint; 
begin 
 write('массив? '); 
 for c := 1 to 10 do readln(h[c]); 
 p := 1; 
 for c := 1 to 10 do begin 
 inc(s, a[c]); 
 p := p * a[c]; 
 end; 
 writeln('сумма: ', s, '; произведение: ', p); 
end.