function minim(ar: array of real; n: integer): real; var i: integer; min: real; begin min := MaxReal; for i := 0 to n - 1 do //динамические массивы индексируются с 0 if min > ar[i] then min := ar[i]; minim := min; end;
begin randomize; write('NA:');readln(NA); //ввод размерностей write('NB:');readln(NB); write('NC:');readln(NC); var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов var b := ArrRandomReal(NB, 1, NB); var c := ArrRandomReal(NC, 1, NC); a.println(' '); writeln('Min:', minim(a, NA)); b.println(' '); writeln('Min:', minim(b, NB)); c.println(' '); writeln('Min:', minim(c, NC)); end.
Program Julia9696; uses crt; const n=10; m=8; var A:array[1..n,1..m] of integer; cur,up,right,down,left,qw,i,j:integer; begin; randomize; writeln(' Alphaeus ');writeln; writeln ('Програма пошуку всіх елементів масиву А[1..n, 1..m], що менші, ніж усі сусідні'); for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(101)-50; write(A[i,j]:3, ' '); end; writeln; end; writeln; qw:=0; for i:=1 to n do for j:=1 to m do begin cur:= A[i,j]; up:=0; right:=0;down:=0;left:=0; if i>1 then begin if cur<A[i-1,j] then up:=1; end else up:=1; if i<n then begin if cur<A[i+1,j] then down:=1; end else down:=1; if j>1 then begin if cur<A[i,j-1] then left:=1; end else left:=1; if j<m then begin if cur<A[i,j+1] then right:=1; end else right:=1; if up+right+down+left=4 then begin qw:=qw+1; writeln('Елемент масиву À[',i,',',j,'], що рівний ',A[i,j]:3,', є меншим за своїх сусідів'); end; end; writeln('Всього таких елементів: ',qw); end.
var a, b, a1, b1: integer;
begin
a:=1;
b:=10;
a1:=a+b
;b1:=a-b;
write('Значение =', a1-b1 );
end.