Pascal.Задачи

[LancerRiker]

1.Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее арифметическое этих чисел.
2.Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Определить, сколько раз в этой последовательности меняется знак. (Например, в последовательности 1, -34, 8, 14, -5 знак меняется 3 раза)
3.Вычеслить
Пытался сделать . Гуглил. Не получилось (особенно со второй)

[nikita33321]

    for i:=0 to n do
     begin
     sum := 0; //среднее ариф
     k := 0;  // счетчик 
         if (a[i] <> 0 ) then 
         begin
               sum := sum + a[i];
               k := k + k;
         end
          else
           begin
              result = sum:k; // среднее последовательности
              sum:= 0;
              k:=0;
           end;
     end;

1 задача


ПО второй - просто меняешь флаги


ps давно не кодил на паскале, могут быть ошибки

[LancerRiker]

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

    for i:=0 to n do
     begin
     sum := 0; //среднее ариф
     k := 0;  // счетчик 
         if (a[i] <> 0 ) then 
         begin
               sum := sum + a[i];
               k := k + k;
         end
          else
           begin
              result = sum:k; // среднее последовательности
              sum:= 0;
              k:=0;
           end;
     end;

1 задача


ПО второй - просто меняешь флаги


ps давно не кодил на паскале, могут быть ошибки

как она будет полностью выглядить? у меня не получается ее собрать
С флажками я сделал.

[newerow1989]

Небольшие ошибки в коде. Даю правильный

sum := 0; //среднее ариф
k := 0;  // счетчик 
for i:=0 to n do
     begin
     
         if (a[i] <> 0 ) then 
         begin
               sum := sum + a[i];
               k := k + k;
         end
          else
           begin
              result:= sum:k; // среднее последовательности
              sum:= 0;
              k:=0;
           end;
     end;

3 задача:

p:=0;
for i := 1 to 20 do
   for j := 1 to 20 do
      p := p * 1/(i + j*j);

[min@y™]

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

3 задача:

p:=0;
for i := 1 to 20 do
   for j := 1 to 20 do
      p := p * 1/(i + j*j);

Ну ты чо? Без ножа режешь!

[newerow1989]

Мне что-то не хотелось проверять на Паскале!

p:=1; //пусть будет так!

[serb1980]

спс, очень полезно

[Вадим Мошев]

Кстати, вот альтернативное решение для второй задачи:

{пусть A - массив неизвестной размерности (хотя такого, наверное, не может быть) с такой последовательностью}

Amount:=0;
i:=1;
while a[i+1] <> 0 do
	begin
		if a[i]*a[i+1] < 0 then
			inc(Amount);
		inc(i);
	end;

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

[newerow1989]

Сообщение от Вадим Мошев

Кстати, вот альтернативное решение для второй задачи:

{пусть A - массив неизвестной размерности (хотя такого, наверное, не может быть) с такой последовательностью}

Amount:=0;
i:=1;
while a[i+1] <> 0 do
	begin
		if a[i]*a[i+1] < 0 then
			inc(Amount);
		inc(i);
	end;

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

Условие выхода из цикла неграмотное: размерность массива ограничено, поэтому произойдет выход из массива, здесь приведет к аварийному завершению программы.

[Вадим Мошев]

Можете мне привести пример, который приведёт к аварийному завершению программы?

Вот вам сразу код:

var
  Amount, i, n: byte;
  a: array[byte] of integer;

begin

readln(n);
for i:=1 to n do
  read(a[i]);
    
  


  Amount:=0;
i:=1;
while a[i+1] <> 0 do
	begin
		if a[i]*a[i+1] < 0 then
			inc(Amount);
		inc(i);
	end;

write('kol-vo  ', Amount);

readln;
readln;

end.

Я его прогнал по некоторым тестам - всё прошло успешно.
Один из тестов был таким:
Массив из двух элементов (5 и 0)
Результат: знак не меняется ни разу, ответ: 0