6. на улице, став в кружок, беседуют четыре девочки: аня, валя, галя, надя. девочка в зеленом платье (не аня и не валя) стоит между девочкой в голубом платье и надей. девочка в белом платье стоит между девочкой в розовом платье и валей. какое платье носит каждая из девочек?

1)

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(80)-20;

write (a[i],' ');

s: =s+a[i];

end;

writeln;

writeln ('summa = ',s);

readln;

end.

2)

vara: array [1..15] of integer; i: integer;

p: longint; beginrandomize;

p: =1; for i: =1 to 15 do begina[i]: =random(26)+5; write (a[i],' '); p: =p*a[i]; end; writeln; writeln ('proizvedenie = ',p); readln; end.

3)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(90)-50; write (a[i],' ');

if a[i]< 0 then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end. 

4)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(37)+1; write (a[i],' '); if odd(a[i])=true then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end. 

5)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(39)+2; write (a[i],' '); if a[i]< 20 then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end.  

6)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(60)+5; write (a[i],' '); if a[i] mod 7 = 0 then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end.  

7)

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(8)+3;

write (a[i],' ');

if a[i]=8 then s: =s+a[i]

end;

writeln;

writeln ('summa = ',s);

readln;

end.

8)

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(69)+5;

write (a[i],' ');

if a[i] mod 11 = 0 then s: =s+a[i];

end;

writeln;

writeln ('summa = ',s);

readln;

end.

9)

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(69)+5;

write (a[i],' ');

if odd(a[i])=false then s: =s+a[i];

end;

writeln;

writeln ('summa = ',s);

readln;

end.

10)

vara: array [1..15] of integer; i: integer;

p: longint; beginrandomize;

p: =1; for i: =1 to 15 do begina[i]: =random(69)+5; write (a[i],' '); if a[i] mod 3 = 0 then p: =p*a[i]; end; writeln; writeln ('proizvedenie = ',p); readln; end.

  14)

vara: array [1..15] of integer; i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(26)+5; write (a[i],' '); end; writeln;

writeln ('==========================================================');  

for i: =1 to 15 do 

if odd(a[i])=false then write (a[i],' '); readln; end.

13)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(85)+21; write (a[i],' '); end; writeln;

writeln('=========================================================');

for i: =1 to 15 do

if a[i] mod 21 = 0 then begin

write (a[i],' ');

k: =k+1;

end;

if k=0 then writeln ('elementov net'); readln; end.

  12)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(37)+1; write (a[i],' '); end; writeln;

writeln('=========================================================');

for i: =1 to 15 do

if a[i]> 15 then write (a[i],' ');  

readln; end.

11)

vara: array [1..15] of integer; i: integer;

p: longint; beginrandomize;

p: =1; for i: =1 to 15 do begina[i]: =random(15)+1; write (a[i],' '); if (a[i]> 2) and (a[i]< 5) then p: =p*a[i];

end; writeln; writeln ('proizvedenie = ',p); readln; end.