Средне гармоническое

[gred]

Плиз исправте ошибки
Мне надо что когда вводишь 0 или отрицательное число вылезала ошибка

uses crt;
var mas:array[1..50] of integer;
k,n,i:integer;
gs:real;

begin
gs:=0;
n:=0;
for i:=1 to 5 do

begin
write('mas[',i,']=');
readln(mas[i]);
end;

if(mas[i]>0) or (mas[i]<>0) then
begin
for i:=1 to 5 do
begin
gs:=gs+(1/mas[i]);
n:=n+1;
end;
writeln('gs=',n/gs);
readln;
end
else
writeln ('owibka');
readln;
end.

[B_N]

Вот здесь:

if(mas[i]>0) or (mas[i]<>0)

достаточно проверять mas[i]<>0, а вот здесь:

writeln('gs=',n/gs);

было бы очень здорово проверять, что gs не равно нулю.

[gred]

если так то будет считать отрицательные
Напиши циликом прогу плиз а то я запутался

[B_N]

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

если так то будет считать отрицательные
Напиши циликом прогу плиз а то я запутался

Опечатка. Только (mas[i]>0). Зачем два раза с нулем сравнивать?
------------------------------------
Вас код структурировать учили?

uses crt;

var mas:array[1..50] of integer;
k,n,i:integer;
gs:real;

begin
	gs:=0;
	n:=0;
	for i:=1 to 5 do begin
		write('mas[',i,']=');
		readln(mas[i]);
	end;

	if mas[i] > 0 then begin
		for i:=1 to 5 do begin
			gs:=gs+(1/mas[i]);
			n:=n+1;
		end;
		writeln('gs=',n/gs);
		readln;
	end
	else
		writeln ('owibka');
	readln;
end.

Теперь видно, где ошибка?

[gred]

» Ошибка: вещественное деление на 0 (1.PAS, строка 17)
Вот ошибка вылезает когда вводишь первый 0

[B_N]

Понятно. Где ошибка не видим.

const numbers = 5;
var
    mas : array[1..numbers] of integer;
    i : integer;
    gs : real;
begin
    gs := 0;
    i := 1;
    while i <= numbers do begin
        write('mas[',i,']=');
        readln(mas[i]);
        if mas[i] <= 0 then begin
            writeln('owibka');
            readln;
        end
        else i := i + 1;
    end;


    for i:=1 to numbers do begin
        gs := gs + (1/mas[i]);
    end;

    if gs <> 0 then writeln('gs=',numbers / gs)
    else writeln('owibka');
    readln;
end.

[gred]

Слека не так слово ошибка должно писаться после того как вёл весь массив
например
mas[1]=0
mas[2]=2
mas[3]=3
mas[4]=4
mas[5]=-5
owibka

В этом вся загвоздка

[puporev]

Если тебе нужно проконтролировать правильность ввода всех значений массива, сделай так, чисто по Паскалевски.

uses crt;
const numbers=5;
var mas:array[1..numbers]of integer;
    i:integer;
    gs:real;
    label 1;
begin
gs:=0;
i:=1;
1:
clrscr;
writeln('Vvedite elem massiva >=0:');
while i<=numbers do
    begin
      write('mas[',i,']=');
      readln(mas[i]);
      i:=i+1;
    end;
for i:=1 to numbers do
if mas[i]<=0 then
    begin
     writeln('Nevernye znachenia!:');
     readln;
     goto 1;
    end;

Дальше не смотрел, видимо все работает, раз вопрос только по проверке.

[Serge_Bliznykov]

Кстати, ребята, я Вас всех поздравляю. Вы все просмотрели конкретный косячок, который допустил новичок (в последнем посте его уже нет.... )

for i:=1 to 5 do
begin
write('mas[',i,']=');
readln(mas[i]);
end;

if(mas[i]>0) or (mas[i]<>0) then ...
вопрос какой элемент массива проверяется? Последний? по i, которое осталось от предыдущего цикла???
:-))

[Stilet]

Серж, если посмотриш внимательно последние посты Бьена и Пупорева, то заметиш что этот баг у них отсутствует - значит не провтыкали.
А вот автор конечно начудил.