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

[amebka]

Хорошо...

 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

[Ozzя]

Проверка:

Код

if (a[i] mod 2=0) or (a[i] mod 3=0) or (a[i] mod 5=0) or (a[i] mod 7=0) then  
  s:=s+a[i];

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

Наврал

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

Сообщение отредактировано: Ozzя - 14.03.2006 17:19

[amebka]

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

[volvo]

осталось только сделать ограничения

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.

[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]

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

Код

num: integer;

- а это что???

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

[Ozzя]

Уфф, ура

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

[Ozzя]

if not p then

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

[amebka]

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

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

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

[amebka]

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

 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 элементов, а в первой размер массива надо вводить...)

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

[Ozzя]

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

[amebka]

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

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