Сформировать целочисленный массив из 25 элементов. элементы массива принимают значения от -15 до 20. найти максимальный элемент и его номер надо(турбо паскале), за ранее )
Type arr=array[1..25] of integer; var ar:arr; i,maxi,max:integer; begin randomize; max:=-16; for i:=1 to 25 do begin ar[i]:=(random(36)-15); write(ar[i],' '); if ar[i]>max then begin max:=ar[i]; maxi:=i; end; end; writeln; write(max,' ',maxi); readln; end.
arr=array[1..25] of integer;
var
ar:arr;
i,maxi,max:integer;
begin
randomize;
max:=-16;
for i:=1 to 25 do begin
ar[i]:=(random(36)-15);
write(ar[i],' ');
if ar[i]>max then begin
max:=ar[i];
maxi:=i;
end;
end;
writeln;
write(max,' ',maxi);
readln;
end.