Вывести сумму составных чисел среди элементов массива, которые являются делителями числа 360.

@TimSand · Регистрация: 11.11.2010

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
У меня задачка: Вводятся размер рдномерного массива и его элементы. Вывести сумму составных чисел среди элементов массива, которые являются делителями числа 360.

Написал код:

Pascal

program tst;
uses crt;
var
a:array [1..1000] of integer;
n, i, t, sum: integer;
begin
clrscr;
t:=360;
write('vvedite razmer massiva ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
For i:=1 to n do
begin
if a[i]/t=0 then
begin
while a[i]>0 do
begin
sum:= sum+(a[i] mod 10);
a[i]:= (a[i] div 10);
end;
write(' ',a[i]);
end;
end;
 
readkey;
end.

работать не хочет. помогите пожалуйста, где косяк?

@dimcoder · 29.12.2011, 09:55

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

a[i]/t=0

Если a[i] = 0, то только тогда выполниться условие. Там mod нужен вместо /

@dimcoder Полярный 476 / 448 / 158 Регистрация: 11.09.2011 Сообщений: 1,156
	29.12.2011, 09:55	2
	Сообщение от TimSand a[i]/t=0 Если a[i] = 0, то только тогда выполниться условие. Там mod нужен вместо / 0