Запишите на языке паскаль программу решения в некотором населённом пункте n домо.известно сколько людей проживает в каждом доме исходные данные (количнство жильцов) представить с линейной таблицы a, содержашей n элементов a (1)-количество жильцов дома 1 a (2)-количество жильцов дома (n)-количество жильцов дома n в обшем случае a (i)-количество жильцов в доме i, где i принимает все значения от 1 до (i=1, n) результат работы обозначить через s считайте количество жильцов случяйным числом из диапозона 50 до 200 а=30
var a:array[1..1000]of integer; i,n,s:integer;
begin
write('n: '); readln(n); s:=0;
for i:=1 to n do begin write('a[',i,']: '); read(a[i]) end;
for i:=1 to n do s:=s+a[i]; writeln('s=',s); readln; readln
end.