uses crt;
var
i,n,m:integer;
b:array[1..100] of real;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: '
readln;
writeln('Vektor B: '
for i:=1 to n do begin
write('b[',i,']=' readln(b); end;
for i:=1 to n do write(b:7:2);
writeln;
m:=1;
for i:=2 to n do
if b>b[m] then m:=i;
writeln('max = ', b[m]);
for i:=1 to n do
if b=b[m] then begin
writeln('pervoe max i= ',i); break end
end.
я люблю доширак
var i, index, n: integer;
A: array of int64;
max: int64;
begin
write('N = ');
readln(N);
setlength(A, N);
writeln();
write('1: ');
readln(A[0]);
max := A[0];
index := 0;
for i := 1 to N - 1 do
begin
write(i + 1, ': ');
readln(A);
if A > max then
begin
max := A;
index := i
end
end;
writeln();
A[index] := 0;
for i := 0 to N - 1 do
writeln(i + 1, ': ', A)
end.