ЛП
Лилия Полякова
турбо паскаль. max:=a; в программе это что?
max:=a;
max:=a{i}
program z2;
uses crt;
var a:array[1..10] of integer;
i, max,k:integer;
begin clrscr;
for i:=1 to 10 do begin
a:=random(10);
write (a,'');
end;
i:=0; max:=-maxINT;
For I:=1 to 10 do
if a>max then
begin
max:=a;
k:=i; end;
writeln;
writeln('max=',max);
writeln ('koordinata=',k);readkey;
end.