Uses crt; var n,minind,i:integer; min,x,y:real; begin writeln('Введите количество точек: '); read(n); writeln('Вводите по очереди координаты x и y точек.'); read(x,y); min:=sqr(x)+sqr(y); minind:=1; for i:=2 to n do begin read(x,y); if sqr(x)+sqr(y)<min then begin min:=sqr(x)+sqr(y); minind:=i; end; end; writeln('Точка под номером ',minind,'.'); end.
const nn=100; var a:array[1..nn] of integer; i,n,max:integer; begin Write('n='); Read(n); randomize; max:=-100; for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]>max then max:=a[i] end; Writeln; Writeln('Max=',max) end.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив A[',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); for var i:=0 to m-1 do a[i,2]:=-7; Writeln(4*a.ColCount*'-'); a.Println(4) end.
var n,minind,i:integer;
min,x,y:real;
begin
writeln('Введите количество точек: ');
read(n);
writeln('Вводите по очереди координаты x и y точек.');
read(x,y);
min:=sqr(x)+sqr(y);
minind:=1;
for i:=2 to n do
begin
read(x,y);
if sqr(x)+sqr(y)<min then
begin
min:=sqr(x)+sqr(y);
minind:=i;
end;
end;
writeln('Точка под номером ',minind,'.');
end.