: TURBO-PASCAL , , , , CRT, .
1.
a b. 60. .
2
. . . . .
: , , , .
1.
.
.
.
, .
3
, . .
: .
1.
k- . [55] .
4
, . .
: , , .
1.
, .
. -10.
5
:
1) 3 : , , .
2) .
1.
1. 10 100 10000.
2. .
3. .
4. , 3.
4. - .
2.
1. , (Write(bPeremennaja:5)) .
2. , , , 5000, 100 .
:
: L5GnnN##.pas
|
|
6
:
1) .
2) .
1.
, .
2
(, , ) . .
3.
( , , ..).
4.
.
:
program SmOA;
uses crt;
const max=300;min=15;var a:array[1..max] of integer;
b:array[1..min] of real;c:array[0..max+min] of longint;
e,i,m:integer;x,y,z:real;begin clrscr;
randomize;for i:=1 to max do a[i]:=random(1000);
begin if a[i]=1 then a[1]:=1;begin for m:=1 To min do b[m]:=a[m];
end;for e:=1 to max do write(a[e]:4);end;readln(x,y,z);
begin m:=a[1];for i:=2 to max do if m < a[i] then begin m:=a[i];e:=i;
end;end;if e>0 then begin writeln(e,' = ',a[e]);end;
writeln('ENTER');readln;end.
:
: L6GnnN##.pas