var
a: array [1..5, 1..5] of byte;
min: array [1..5] of byte;
i, j: byte;
begin
for i := 1 to 5 do min[i] := 100;
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(0, 99);
if (min[i] > a[i, j]) then min[i] := a[i, j];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:2, ' ');
writeln('- ', min[i]);
end;
<span>end.</span>
{Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал -5<x<7}
const
max_x = 7;
min_x = -5;
d_x = 0.5;
var
x, y: real;
begin
x := min_x;
while(x < max_x) do
begin
if(x <> 0) then
y := 1 / (x * x)
else y := 0;
writeln('x=', x:2:1, ' y=', y:2:5);
x := x + d_x;
end;
end.
Переменная С примет значение: 3
Решение: в информатике int это Integer(целое число). Когда мы хотим извлечь из неумелого числа значение int мы возьмём его целую часть. Здесь 3.86= 3 + 0.86
как видим, целая часть это число 3