Question

Запишите на языке Паскаль программу решения задачи:
Исходные данные(кол-во жильцов) представим с помощью линейной таблицы А,содержащей N элементов:А(1)-кол-во жильцов дома 1, А(2)- кол-во жильцов дома 2,...,А(N)-кол-во жильцов дома N. В общем случае А(i)-кол-во жильцов дома i,где i принимает все значения от 1 до n(i=1,n).Результат работы алгоритма обозначим через s.
P.S. Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек,а число домов n=30

Answer 1

program z1
const n=30;
var a: array [1..n] of integer;s, i: integer;
begin
randomize;
for i:=1 to n doa[i]:= random (151)+50;for i:= 1 to n dos:=s+a[i];
writeln ('количество=',s);
readln;
end.