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


Теги !

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

Потому, что ты пытаешься задать размер массива через переменную, а должна быть - константа!

const n_max = 100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
...

Дальше - без изменений...

Спасибо большое) я бы и не догадалась...
Теперь он не компелирует в следующем месте...

Теги !

пишет, что там должна быть точка с запятой... (

 for i:= 1 to n do

двоеточие забыли

k:=a[i] mod 2;

Пробелы.

В следующий раз будет ругаться на m1...
а вообще лучше бы без goto обойтись...

klem4, ТЕГИ это прекрасно, но попробуй теперь прочесть обе эти программы!

Хм действительно с pascоde какие-то проблемы тут ... codebox вроде нормально

Спасибо большое ... программа скомпилировалась, но все равно не работает...
конечный вариант выглядит так...

 
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) 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.

Может, кто-нибудь сможет мне помочь?

Давай ты не будешь врать, ОК?

var
  i,k,s,n:integer;
  a:array[1..n] of integer;

Это - не будет компилироваться ни при каких условиях...

Почему - см. сообщение №2

Извиняюсь ... моя невнимательность
вроде так... (уже не уверена)...

 const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
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.

Правильно, что не уверена... Откомпилируй программу, потом пришлешь полученный вариант... Компилятором работать, я думаю, ни у кого желания нет...

k:=a(i) mod 2;

тоже не будет компилироваться. Ибо скобки не те... Квадратные нужны.

const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
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.

Извиняюсь, конечно, за такое количество ошибок... просто я не умею ее из паскаля копировать (пришлось перебивать вручную, поэтому и ляпов столько)...

for i: = 1 to n do
Это тоже не будет компилироваться. Между : и = пробел.

1. Открыть pas-файл блокнотом.
2. Щелкнуть кнопку системного меню, если bp запущен в оконном режиме. Изменить -> Выделить -> Выделить программу -> Нажать enter -> Вставить сюда

const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
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.

у меня она компилируется, но не работает... я не понимаю почему...

amebka
Но мне проще написать заново, чем в чужом коде разбираться.

Функция isNotPrime взята из ФАК и переделана. Определяет составное число или нет

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

function isNotPrime(X: word): boolean;
  var  i: integer;
Begin
  isNotPrime:=true;
  for i:=2 to trunc(sqrt(x)) do
	if x mod i = 0 then Exit;
  isNotPrime:=false
End;

begin
  for i:=1 to N do
	readln(a[i]);
  s:=0;
  for i:=1 to N do
	if isNotPrime(a[i]) then
	  s:=s+a[i];
  Writeln('Summa = ',s);
end.

да... мне тоже в чужом коде тяжело разбираться.... ( и не работает он у меня что-то (( я ввожу числа массива и ничего не происходит.... (( может, я чего-то не понимаю???
после компиляции нажимаю ctrl+F9 ввожу числа... они вводятся и вводятся... как долго это должно продолжаться, когда массив всего из 5 чисел?

Вводишь одно число, затем Enter.
Так делала?

Спасибо, без Enter делала - через пробел... ща исправлюсь... а заодно и в своей программе покопаюсь... может заработает...

через пробел - это в Basic'е.

Возможно

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

 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), которая изначально равна нулю, прибавляется данный элемент массива
в конце должна вывестись сумма всех составных чисел данного массива...

Не вводим!

Хорошо...

 const n_max=100;
var
i,k,s,n:integer;
a:array[1..n_max] of integer;
begin
readln(n);
for i:=1 to n do
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.

Ввожу n=5
дальше ввожу числа 1, 2, 3, 4, 5... ответ получается 43

Проверка:

То есть, если число нацело делится хотя бы на одно из чисел 2,3,5 или 7, оно уже составное.

Наврал

Счас проверю, исправлю

Да)) это работает... осталось только сделать ограничения, что само a(i) не должно быть равно 2, 3, 5 и 7 ))) Спасибо)))

const n_max=100;
var
  i,k,s,n:integer;
  num: integer;
  a:array[1..n_max] of integer;

begin
  readln(n);

  s := 0;
  for i := 1 to n do begin

    readln(a[i]);
    if (a[i] mod 2 = 0) and (a[i] > 2) then s := s + a[i]
    else
      if (a[i] mod 3 = 0) and (a[i] > 3) then s := s + a[i]
      else
        if (a[i] mod 5 = 0) and (a[i] > 5) then s := s + a[i]
        else
          if (a[i] mod 7 = 0) and (a[i] > 7) then s := s + a[i];

  end;


  writeln (s);
end.

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.

Все))) заработало))))))))
Огромное всем спасибо))))

- а это что???

и еще надо букву k убрать из начала...

Уфф, ура

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

А 1 и 2 - это простые числа?
Еще и их надо отслеживать

2 надо... а 1 нет - на него мы не делим...

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
		begin
		if (a[i] = 1) or (a[i] = 2) then
		  break;
		  if a[i] mod k=0 then
			p:=false
		  else
			k:=k+1;
		end;
	  { суммирование }
	  if not p then
		s:=s+a[i];
	 end;
  Writeln('Summa = ',s);
end.

Вот три рабочие программы:

 const n_max=100;
var
  i,s,n:integer;
  a:array[1..n_max] of integer;

begin
  writeln ('Razmer massiva raven ');
  readln(n);

  s := 0;
  writeln ('Elementy massiva:');

  for i := 1 to n do begin

	readln(a[i]);
	if (a[i] mod 2 = 0) and (a[i] <> 2) then s := s + a[i]
	else
	  if (a[i] mod 3 = 0) and (a[i] <> 3) then s := s + a[i]
	  else
		if (a[i] mod 5 = 0) and (a[i] <> 5) then s := s + a[i]
		else
		  if (a[i] mod 7 = 0) and (a[i] <> 7) then s := s + a[i];

  end;


  writeln ('Summa = ', s);
end.

и

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

function isNotPrime(X: word): boolean;
  var  i: integer;
Begin
  isNotPrime:=true;
  for i:=2 to trunc(sqrt(x)) do
	if x mod i = 0 then Exit;
  isNotPrime:=false
End;

begin
  for i:=1 to N do
	readln(a[i]);
  s:=0;
  for i:=1 to N do
	if isNotPrime(a[i]) then
	  s:=s+a[i];
  Writeln('Summa = ',s);
end.

и

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
		begin
		if (a[i] = 1) or (a[i] = 2) then
		  break;
		  if a[i] mod k=0 then
			p:=false
		  else
			k:=k+1;
		end;
	  { суммирование }
	  if not p then
		s:=s+a[i];
	 end;
  Writeln('Summa = ',s);
end.

(Во второй и третьей массив состоит из 5 элементов, а в первой размер массива надо вводить...)

Спасибо большое всем за помощь и поддержку...

Шампанское в студию!

Отдельное спасибо