вопрос по массивам Опции

[amebka]

Задание:
Вводится размерность одномерного массива A(N) и его элементы. Вывести на экран сумму составных чисел среди элементов массива.
Вот программка:

Исходный код

var
i,k,s,n:integer;
a:array[1..n] of integer;
begin
readln(n);
i:=1;
s:=0;
for i = 1 to n do
begin k:=0;
k:=a(i)mod2;
if k=0 then goto m1
else k:=a(i)mod3;
if k=0 then goto m1
else k:=a(i)mod5;
if k=0 then goto m1
else k:=a(i)mod7;
if k=0 then goto m1;
m1: s:=s+a(i);
end;
writeln (s);
end.

Теги !

Но она даже не компилируется (в месте, отмеченном красным цветом)...
Как думаете, почему? и вообще, как она (программка)? действенная?

Сообщение отредактировано: klem4 - 13.03.2006 18:40

[amebka]

Нет, не заработала, хотя я и не понимаю, в чем дело
вот программа:

 const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
readln(a[i]);
i:=1; s:=0;
for i:=1 to n do
 begin
 k:=0;
 k:=a[i] mod 2;
 if k=0 then  s:=s+a[i]
		else  k:=a[i] mod 3;
			  if k=0 then  s:=s+a[i]
			  else  k:=a[i] mod 5;
					if k=0 then   s:=s+a[i]
						   else  k:=a[i] mod 7;
								 if k=0 then   s:=s+a[i];
 end;
writeln (s);
end.

Опишу, что моя программа должна была бы делать... хотя и не делает
Начиная с begin...
вводим размер массива (n), который не должен превышать 100
вводим данные в массив
начинается цикл от первого элемента массива до n-го
попадая в цикл кажый элемент проверяется на наличие остатка от деления на числа 2, 3, 5, 7 - это те числа, на которые могут делиться составные числа, кроме как на себя и единицу
если при каком-то из делений остаток (k) равен нулю (т.е. данный элемент массива делится на 2, 3, 5 или 7 без остатка), то к сумме (s), которая изначально равна нулю, прибавляется данный элемент массива
в конце должна вывестись сумма всех составных чисел данного массива...