7.0



7.2. - 2


Begin { }

writeln( );

for i := 1 to 4 read(a[i]);

:

1.2 5 6.8 14 < Enter >.

2.

, .

:

for i := 1 to 4 do write(a[i]:5:1);

writeln;

:

1.2 5.0 -6.8 14.0

WRITELN .

: , , .

1. .

, 3 .

Program OM_1;

Var

B: array [1 20] of integer;

i, L: integer;

Begin

writeln( ’);

for i :=1 to 20 do read(b[i]);

L := 0;

for i :=1 to 20 do

if (b[i] MOD 3) = 0 then L := L+1;

writeln(L =, L);

End.

2. .

. , :

;
.

Program _2;

Var

: array [1 100] of real;

n, i: integer;

S, P: real;

Begin

writeln( n);