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

0 голосов
60 просмотров

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


Информатика (57 баллов) | 60 просмотров
0

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

Дан 1 ответ
0 голосов
Правильный ответ

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.

(510 баллов)