Program z1; Var a: array [1..1000] of integer; b: array [1..1000] of integer; i,j,n,min,m:integer;Begin write('Введите размер массива - '); readln(n); randomize; for i:=1 to n do begin a[i]:=random(50)-0; write (a[i],' '); end; j:=1; for i:=2 to n-1 do begin if ((a[i]>a[i-1]) and (a[i]>a[i+1])) then begin b[j]:=a[i]; j:=j+1; end; end; m:=j-1; writeln; for j:=1 to m do write (b[j],' '); min:=b[1]; for j:=2 to m do if (b[j]<min) then min:=b[j]; writeln; writeln(min); End.
program p1;
uses crt; вывод окошка
const N = 30;
var a: array [1..N] of integer;
i, max, max2 :integer;
begin
for i:=1 to N do begin вывод элементов массива с рандома
a[i]:= random (100);
write( a[i]:4);
end;
writeln;
max:= a[1]; принимаем первый элемент массива за макс
max2:= a[1]; принимаем первый элемент массива за макс
for i:=1 to N do begin находим первый max
if max<a[i] then
max:= a[i];
end;
for i:=1 to N do begin находим второй max2
if (max2<a[i]) and ( a[i]<> max) then
max2:= a[i];
end;
writeln('max=',max);
writeln('max2=',max2);
end.