Запишите на языке паскаль программу решения в - вопрос №8131784 от iwliliya18 10.10.2020 05:22

Question

Информатика: Запишите на языке паскаль программу решения в некотором населённом пункте n домо.известно сколько людей проживает в каждом доме исходные данные (количнство жильцов) представить с линейной таблицы a, содержашей n элементов a (1)-количество жильцов дома 1 a (2)-количество жильцов дома (n)-количество жильцов дома n в обшем случае a (i)-количество жильцов в доме i, где i принимает все значения от 1 до (i=1, n) результат работы обозначить через s считайте количество жильцов случяйным числом из диапозона

iwliliya18 · Answer

Program a1;var a:array[1..1000]of integer; i,n,s:integer; beginwrite( 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; readlnend....