1. Даны целые числа b1, b2, ..., b10. Выяснить:

а) верно ли, что сумма тех из них, которые больше 20, превышает 100;

б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.

uses crt;

var b:array [1 ... 10] of integer; i, s1, s2:integer;

begin

clrscr;

for i:=1 to 10 do

begin

Randomize;

b[i]:=random (100) ;

end;

s1:=0; s2:=0;

if b[i]>20 then s1:=s1+b[i]; if s1>100 then writeln ('a) verno') else writeln ('a) ne verno') ;

if b[i]<50 then s2:=s2+b[i]; if s2 mod 2=0 then writeln ('á) verno') else writeln ('b) ne verno') ;

end.