Дан массив целых чисел. Выяснить:

1) верно ли, что сумма массива есть честное число;

2) верно ли, что сумма квадратов элементов массива есть пятизначное число.

Uses crt;

var

i, sum, kvad:integer;

mas:array [1 ... 10] of integer;

begin

for i:=1 to 10 do

mas[i]:=random (100) ;

for i:=1 to 10 do

write (mas[i],' ') ;

for i:=1 to 10 do

sum:=sum+mas[i];

if sum mod 2=0 then

writeln ('sum=', sum,' summa 4etna9')

else

writeln ('sum=', sum,' summa ne 4etna9') ;

for i:=1 to 10 do

kvad:=kvad+mas[i]*mas[i];

if kvad>9999 then

writeln ('kvad=', kvad,' p9tizna4noe')

else

writeln ('kvad=', kvad,' ne p9tizna4noe') ;

read;

end.