СРОЧНО!!!!!!!!!!!!!!!!!,!!!?!?!!!!?!!!!,????Запишите ** языке Паскаль программу решения...

Question

СРОЧНО!!!!!!!!!!!!!!!!!,!!!?!?!!!!?!!!!,????
Запишите на языке Паскаль программу решения задачи
В некотором населённом пункте N домо.Известно сколько людей проживает в каждом доме
Исходные данные (количнство жильцов) представить с помошью линейной таблицы A, содержашей N элементов A (1)-количество жильцов дома 1
A (2)-количество жильцов дома 2......,A (N)-количество жильцов дома N
В обшем случае A (I)-количество жильцов в доме I, где I принимает все значения от 1 до (I=1, n)
Результат работы обозначить через S считайте количество жильцов случяйным числом из диапозона 50 до 200 а=30

Answer 1

Program a1;
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.