Вопрос Решите на старом паскале лайк поставлю

[Fish]

Дан вещественный массив. введённый с клавиатуры, из N элементов

среди них есть одинаковые. Найти первый максимальный элемент и

заменить его нулём. Вывести результирующий массив

 

[addas]

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.
я люблю доширак

 

[sadsad]

66

 

[Никита_zip]

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.

 

[andy4ever]

Kd

 

[lolkolo]

for (i:=0; i <array.lengtg: i++) {
if (a < a[i+1]) {
b := i
}
}
a = 0