<span>PROGRAM PR17;
VAR
I,N:INTEGER;
S,SR,A:REAL:
BEGIN
WRITE(‘ Введите N’);
READLN(N);
S:=0;
FOR I:=1 TO N DO
BEGIN
WRITE(‘ Введите ‘,I,’ число’);
READLN(A);
S:=S+A:
END;
SR:=S/N;
43
WRITELN(‘Ответ: SR = ’,SR:8:3);
END.</span>
Алг
нач цел i,j,s; цел таб a[1:3,1:3]
s:=0
нц для i от 1 до 3
нц для j от 1 до 3
a[i,j]:=int(rnd(10))
вывод a[i,j],' '
если i=2 то s:=s+a[i,j] все
кц
вывод нс
кц
вывод 'Сумма равна ',s
кон<span>
</span>
Всего 20 домов
№16 не ясно из чего (т.е из любого)
6/20=0,3 дерево
8/20=0,4 кирпич
0,3 железобетон
0,3+0,4+0,3=1
Я думаю что:сночало 1,потом 4, затем3, ну и наконец2