, , , . , .. , . .
Begin
For i:=1 to 10 do
Readln (a[i]); { i- }
2. :
1 program pr1; var a: array [1..5] of integer; i:integer; begin writeln ( ); a[1]:=6; a[2]:=9; a[3]:=5; a[4]:=8; a[5]:=6; for i:=1 to 5 do writeln (a [i]); readln; end. | 2 Program pr2; Var A: array [1..5] of real; i:integer; begin writeln ( ); For i:=1 to 5 do Readln (a [i]); Readln; end. |
, , , .
Var
A: array [1..10] of integer;
I: byte; { I }
Begin
For i:=1 to 10 do
Write (a [ i ], ); { , }
. , , .. , .
Var
A: array [1..10] of integer;
I: byte; { I }
Begin
For i:=1 to 10 do
Writeln (a[, i,]=, a[i]); { }
, , :
a [1]=2
a [2]=4
a [3]=1 ..
: n - . .
:
- . , . .. , , . . :
var a, b: array [1..100] of integer;
- , c. .
- , i, n .
:
|
|
- () , n;
- a;
- b;
- , i 1 n, c :
c [ i ]= a [ i ]+ b [ i ];
- .
:
Program summa;
Var
a, b, c: array [1..100] of integer;
I, n: byte;
Begin
Write ( :);
Readln(n);
For i:=1 to n do
Readln (a[i]); { a}
For i:=1 to n do
Readln (b[i]); { b}
For i:=1 to n do
C[i]:=a[i]+b[i]; { }
For i:=1 to n do
write (c[i], ); { }
end.
: