Автор: Anton

Anton — Wed, 09 Mar 2016 05:55:07 +0000

Даже не стал разбираться. Т.к. for по разному себя ведёт, в зависимости от компилятора. Решил с помощью while.
Было:

program Array27;
var
  a:array[1..10] of integer;
  N,i,temp:Integer;
begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  Temp:=a[1]*a[2];
  for i:=2 to N do
   if (a[i-1]*a[i])>0 then
    begin
     temp:= i;
     break;
    end;
 
  Writeln(temp);
end.

program Array27;

var

a:array[1..10] of integer;

N,i,temp:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Temp:=a[1]*a[2];

for i:=2 to N do

if (a[i-1]*a[i])>0 then

begin

temp:= i;

break;

end;

Writeln(temp);

end.

Стало:

program Array27;
var
  a:array[1..10] of integer;
  N,i:Integer;
  temp:boolean;

begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  Temp:=(a[1]>0);
  i:=2;

  while (i< =N) and (temp <> (a[i]>0)) do
   begin
    temp:= (a[i]>0);
    inc(i);
   end;

  if i=N+1 then Writeln('0')
  else Writeln(i);
  readln;
end.

program Array27;

var

a:array[1..10] of integer;

N,i:Integer;

temp:boolean;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Temp:=(a[1]>0);

i:=2;

while (i< =N) and (temp <> (a[i]>0)) do

begin

temp:= (a[i]>0);

inc(i);

end;

if i=N+1 then Writeln('0')

else Writeln(i);

readln;

end.

Автор: olegst1975

olegst1975 — Tue, 08 Mar 2016 15:17:50 +0000

Сейчас как результат вместо 0 показывает a[1]*a[2]

Комментарии: Решаем задачи Абрамян на Паскале. Array27

Автор: Anton

Автор: olegst1975