[Pascal] Вычислить сумму квадратов элементов, кратных 3.

[eliminate]

Здравствуйте.
Нужна ваша помощь в решении задачи с условием:

Вычислить сумму квадратов элементов, кратных 3

Большое спасибо всем ответившим

[sergio11]

program dd;
uses crt;
var i,n,s:integer; a:array[1..100] of integer;
begin
clrscr;
randomize;
writeln('Введите число элементов');
readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
if (sqr(a[i]) mod 3) = 0 then   s:=s+(a[i]);
writeln;
writeln(s);
readln;
end.

если помог нажми на весы

[eliminate]

Сообщение от sergio11

program dd;
uses crt;
var i,n,s:integer; a:array[1..100] of integer;
begin
clrscr;
randomize;
writeln('Введите число элементов');
readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
if (sqr(a[i]) mod 3) = 0 then   s:=s+(a[i]);
writeln;
writeln(s);
readln;
end.

если помог нажми на весы

Большое спасибо! Как-нибудь с меня пиво

[sergio11]

Сообщение от eliminate

Большое спасибо! Как-нибудь с меня пиво

лутше на весы нажми