Div - целая часть от деления
mod - остаток от деления
<span>391 div 100 = 3
(391 mod 100) div10 = 91 div 10 = 9
391 mod 10 = 1
</span><span>391 div 100+(391 mod 100)div10 +391mod 10 = 3+9+1 = 13</span>
Минимум 2(так как вы уже увилели двоих,максимум-не ограничено.(так как номера не обязательно порядковые)
var
a, b : real;
begin
writeln ('Введите температуру');
read (a);
writeln ('Введите скорость ветра');
read (b);
if (a <= -25) or ((b >= 7) and (a <= -20)) then writeln ('Можно не идти') else writeln ('Увы');
end.
<span>Uses
CRT;
Const
nmax=40;
mmax=40;
var
a,b:array[1..nmax,1..mmax] of integer;
i,j,n,m:integer;
begin
ClrScr;
repeat
write('N:=');
Readln(n);
until n in [1..nmax];
repeat
write('M:=');
Readln(m);
until m in [1..mmax];
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-3;
write(a[i,j]:5);
b[i,j]:=a[i,j]*a[i,j]*a[i,j];
end;
writeln;
end;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(b[i,j]:5);
end;
writeln;
end;
readkey
end.</span>