Const N=5; M=6;
var A:array[1..100,1..100] of Integer;
B:integer;
function massive():integer;
begin
B:=random(-100,100);
Result:=B;
end;
procedure input(i,j:integer);
begin
For i:=1 to N do
For j:=1 to M do
A[i,j]:=massive();
end;
procedure
output(i,j:integer);
begin
For i:=1 to N do
begin
For j:=1 to M do
Write(A[i,j],' ');
Writeln;
end;
end;
begin
input(1,1);
output(1,1);
<span>end.</span>
40-(20+10+5)=5(чел)
Ответ:5 человек ходят пешком
Однорангова мережа являє собою мережу рівноправних комп'ютерів, кожний з яких має унікальне ім'я (ім'я комп'ютера) і, як правило, пароль для входу в нього під час завантаження ОС. Ім'я й пароль входу надаються власником ПК засобами ОС. Однорангові мережі можуть бути організовані за допомогою всіляких різновидів операційних систем Windows — Windows 9x, Windows NT Workstation, Windows 2000 Professional, Windows XP
Вернее Сервисное обеспечение + єто программа