uses crt; var a, b, c, i, n, j :integer; s :array[1..10000] of integer; begin clrscr; writeln('Введите размер массива'); read(n); for i:=1 to n do begin s[i]:=random(46)-15; writeln ('s[', i,']=', s[i]); end; a:=s[1];for i:=1 to n do if s[i]>a then begin a:=s[i]; b:=i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.
uses crt; var a, b, c, i, n, j :integer; s :array[1..10000] of integer; begin clrscr; writeln('Введите размер массива'); read(n); for i:=1 to n do begin s[i]:=random(46)-15; writeln ('s[', i,']=', s[i]); end; a:=s[1];for i:=1 to n do if s[i]>a then begin a:=s[i]; b:=i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.
if обязательно присутствует в сокращенной форме записи ветвления
Объяснение: