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

[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

[Ozzя]

Const
  n=5;
var
  k,i,s : Integer;
  p: boolean;
  a: array [1..N] of Integer;

begin
  for i:=1 to N do
	readln(a[i]);
  s:=0;
  for i:=1 to N do
	begin
	  { Проверка }
	  p:=true;
	  k:=2;
	  while p and (sqr(k)<=n) do
		if a[i] mod k=0 then
		  p:=false
		else
		  k:=k+1;
	  { Подсчет суммы }
	  if p then
		s:=s+a[i];
	 end;
  Writeln('Summa = ',s);
end.

[amebka]

Const
  n=5;
var
  k,i,s : Integer;
  p: boolean;
  a: array [1..N] of Integer;

begin
  for i:=1 to N do
	readln(a[i]);
  s:=0;
  for i:=1 to N do
	begin
	  { Проверка }
	  p:=true;
	  k:=2;
	  while p and (sqr(k)<=n) do
		if a[i] mod k=0 then
		  p:=false
		else
		  k:=k+1;
	  { Подсчет суммы }
	  if p then
		s:=s+a[i];
	 end;
  Writeln('Summa = ',s);
end.

при вводе 1, 2, 3, 4, 5 выдает 9... а должна выдать 4...