Дан массив целых чисел. Выяснить:1) верно ли, что сумма массива есть честное...

Question

Дан массив целых чисел. Выяснить:
1) верно ли, что сумма массива есть честное число;
2)верно ли, что сумма квадратов элементов массива есть пятизначное число.

Comments

сколько чисел в массиве? для 10-ти пойдет?!

Answer 1

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.