function Min(a:Vector; n:integer):integer; var i,m:integer; begin m:=a[1]; for i:=2 to n do if a[i]<m then m:=a[i]; Min:=m end;
var V:Vector; i,n,m,mn:integer; begin Write('Количество элементов вектора: '); Read(n); Write('Значение m: '); Read(m); Randomize; Writeln('*** Сгенерированный вектор ***'); for i:=1 to n do begin V[i]:=Random(101)-50; Write(V[i],' ') end; Writeln; mn:=Min(V,n); if mn<=m then Writeln('Минимум ',mn,' не превышает ',m) else Writeln('Минимум ',mn,' превышает ',m) end.
Тестовое решение: Количество элементов вектора: 20 Значение m: -42 *** Сгенерированный вектор *** -12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24 Минимум -50 не превышает -42
1 var i,k:integer; a,b:array[1..10]of integer; begin writeln('Исходный массив:'); for i:=1 to 10 do begin a[i]:=random(-10,10); write(a[i]:3) end; for i:=1 to 10 do begin if a[i]<0 then begin k:=k+1; b[k]:=a[i] end end; for i:=1 to 10 do begin if a[i]>=0 then begin k:=k+1; b[k]:=a[i] end end; writeln; writeln('Преобразованный массив:'); for i:=1 to 10 do write(b[i]:3) end.
2. var i,j,k,n,x,p:integer; a,b:array of integer; f:boolean; begin write('Сколько будет чисел: '); readln(n); SetLength(a, n); for i:=1 to n do begin f:=false; write('Введите число: '); readln(x); for j:=0 to n-1 do if x=a[j] then f:=true; if f=false then begin a[k]:=x; k:=k+1; end end; SetLength(b, k); for i:=0 to k-1 do b[i]:=a[i]; for i:= 0 to k-1 do for j := 0 to k-1 do begin if b[i] < b[j] then begin p := b[i]; b[i] := b[j]; b[j] := p end end; writeln('Отсортированный массив:'); for i:=0 to k-1 do write(b[i]:3) end.
2.1 var i,j,k,n,x,p:integer; a:array[1..1000] of integer; f:boolean; begin write('Сколько будет чисел: '); readln(n); k:=1; for i:=1 to n do begin f:=false; write('Введите число: '); readln(x); for j:=1 to n do if x=a[j] then f:=true; if f=false then begin a[k]:=x; k:=k+1; end end; for i:=1 to k-1 do for j:=1 to k-1 do begin if a[i] < a[j] then begin p:= a[i]; a[i]:= a[j]; a[j]:= p end end; writeln('Отсортированный массив:'); for i:=1 to k-1 do write(a[i]:3) end.
const
nn=100;
type
Vector=array[1..nn] of integer;
function Min(a:Vector; n:integer):integer;
var
i,m:integer;
begin
m:=a[1];
for i:=2 to n do
if a[i]<m then m:=a[i];
Min:=m
end;
var
V:Vector;
i,n,m,mn:integer;
begin
Write('Количество элементов вектора: '); Read(n);
Write('Значение m: '); Read(m);
Randomize;
Writeln('*** Сгенерированный вектор ***');
for i:=1 to n do begin
V[i]:=Random(101)-50;
Write(V[i],' ')
end;
Writeln;
mn:=Min(V,n);
if mn<=m then Writeln('Минимум ',mn,' не превышает ',m)
else Writeln('Минимум ',mn,' превышает ',m)
end.
Тестовое решение:
Количество элементов вектора: 20
Значение m: -42
*** Сгенерированный вектор ***
-12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24
Минимум -50 не превышает -42