const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.
Const
nm = 50;{максимальная длина массива}
type
Mas = array[1..nm] of real;
var
i, j, n: integer;
x, y: Mas;
d, dmin: real;
function SqrDist(p, q: integer): real;
{ Возвращает квадрат расстояния между точками }
begin
SqrDist := sqr(x[q] - x[p]) + sqr(y[q] - y[p])
end;
begin
Write('Введите количество точек -> ');
Readln(n);
Writeln('Вводите координаты каждой точки (x,y) через пробел');
for i := 1 to n do
begin
Write('точка ', i, ': ');
Readln(x[i], y[i]);
end;
dmin := 1e10; { значение, заведомо большее реально возможного }
for i := 1 to n do
for j := i + 1 to n do
begin
d := SqrDist(i, j);
if dmin > d then dmin := d
end;
Writeln('Минимальное расстояние между точками равно ', sqrt(dmin):0:4)
end.
Тестовое решение:
Введите количество точек -> 5
Вводите координаты каждой точки (x,y) через пробел
точка 1: 3.4 7.2
точка 2: -3 8.6
точка 3: -4.5 -5.1
точка 4: 6 -2
точка 5: 0 9
Минимальное расстояние между точками равно 3.0265
<span>1) </span><span>program</span> Mult<span>(</span>output<span>)</span>; <span>begin</span> var k,m: integer; k:=12; m:=1; while(k<800) begin m:=m*k; k:=k+12; end; write(m); <span>end</span>.
2) <span>program</span> EvenNumbers<span>(</span>output<span>)</span>; <span>begin</span> n, m, even, i: integer; even:=0; write('Enter number N: '); read(n); writeln(); if n<=0 then exit; write('Enter a number: '); for i:=1 to n do begin read(m); writeln(); if i<n then begin write('Enter a number: '); end; if m div 2 = 0 then even:=even+1; end; write(even); <span>end</span>.
3) <span>program</span> Mine<span>(</span>output<span>)</span>; <span>var</span> i <span>:</span><span>integer</span>; function Print<span>(</span><span>var</span> j <span>:</span><span>integer</span><span>)</span>;real; <span>begin</span> Print:=1/<span>exp(ln(j) * </span>5<span>)</span><span>end</span>; <span>begin</span> n,i:integer; m:real; write('Enter number N: '); read(n); m:=0; for i:=1 to n do m:=m+Print(i); writeln(); write(m); <span>end</span>.
Ну как бы человек благодаря природе может много чего выучить.Например я видел как росли разные растения,деревья.
