Agarus
6 год назад
СРОЧНО!!!!!!!!!!!!!!!!!,!!!?!?!!!!?!!!!,????Запишите на языке Паскаль программу решения задачиВ некотором населённом пункте N домо.Известно Как узнать сколько людей проживает в каждом доме Исходные данные (количнство жильцов) представить с помошью линейной таблицы A, содержашей N элементов A (1)-количество жильцов дома 1A (2)-количество жильцов дома 2......,A (N)-количество жильцов дома NВ обшем случае A (I)-количество жильцов в доме I, где I принимает все значения от 1 до (I=1, n)Результат работы обозначить через S считайте количество жильцов случяйным числом из диапозона 50 до 200 а=30
ОТВЕТЫ
Brahms Hertha
Oct 24, 2020
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.
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.
298
