1
20, 0 9
1
,
2
-.
program 1
var i,m,nm:integer;
const a: array[1..10] of integer =(2,5,7,13,8,9,3,16,6,1);
begin
m:=a[1]; nm:=1;
for i:=2 to 10 do if a[i]>m then begin m:=a[i]; nm:=i; end;
writeln ('= ',m,' = ',nm);
end.
2
,
3
,
- 4 3
- 5-6 4
- 7-9 5
2) ( , - )
1. ( A) ?
1. Integer
- byte
- real
- word
2. ( A) ?
- , ,
- , - ,
- , ,
- , -
3. ( A)
- ()
4. ( A) ?
- c:array[1..a+b] of real;
- d:array[1.0..100.0] of integer:
- f:array[1..100]of integer;
- b:array[10..1]of integer:
5. ( B) ? Write(' :'); readln(n); for i:=1 to n do begin writeln('a[',i,']='); readln(a[i]); end;
6. ( A) ? Randomize; Write(' :'); readln(n); for i:=1 to n do begin a[i]:=random(50); write(a[i]):4; end;
7. ( A) :
Var a: array [1..35] of integer;
a[i]:=2001;
2001 - :
8. ( B) ? Write(' :'); readln(n); for i:=1 to n do begin a[i]:=i*i/i+2; writeln('a(',i,')=',a[i]); end;
|
|
|
9. ( A) ?
4. ,
10. ( A) D[2,6]?
- 2,6
- 2,6
11. ( A) :
Var a: array [1..35] of integer;
a[i]:=2001;
a - :
12. ( A) - ?
- -
13. ( A) :
Var a: array [1..35] of integer;
a[i]:=2001;
a[i] - :
14. ( B) :
S:=1; for i:=1 to 10 do if A[i]>0 then S:=S*A[i];
S?
15. ( B) :
Var a: array [1..35] of integer;
a[i]:=2001;
35 - :
16. ( ) :
- Var a: array [1,8] of integer;
- Var a: array [1..8] is integer;
- Var a: array [1..8] of integer;
- Var a: array [1..8] as integer;
17. ( ) :
S:=0; for i:=1 to 10 do S:=S+A[i];
S?
18. ( ) :
- A:=A[i+1];
- A[i]+1:=A[i+1];
- A[i]:=i+A[i+2];
- A[i*i]:=A[i];
19. ( ) ?
- array
- string
- char
- const
20. ( ) :
Var a: array [1..35] of integer;
a[i]:=2001;
i - :
VII ( )
. .
-
-
-
