Question

Помогите исправить program ww; var k,t,i: real; begin k:=0; for i:=0 to 7 do; if A[i] begin k:=k+1; t:=A[i]; A[i]:=A[i+2]; A[i+2]:=t; end; vrite (k); end.

Answer 1

Ответ:

i,n: integer;

procedure IN1(var a,b:real;n:integer;var y:real);

var

p:real;

i:integer;

begin

y:=1;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y:=p*y;

end;

end;

procedure IN2(var a, b:real; n:integer; var y1:real);

var

p:real;

i:integer;

begin

y1:=0;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y1:=y1+p;

end;

end;

begin

write(' Введите a, b,n');

readln(a,b,n);

IN1(a,b,n,y2);

writeln('p1 ',y2:10:2);

writeln(' Введите c, b,m');

read(a,b,n);

IN2(a,b,n,y3);

writeln('s ',y3:10:2);

write(' Введите e, f,L');

readln(a,b,n);

IN1(a,b,n,y5);

writeln('p2 ',y5:10:2);

y6:=(y2+y3)/y5;

writeln(y6:8:3); end.

Answer 2

Конечно! Вот исправленный вариант программы:

pascalCopy code
program ww;

var
  k, t, i: integer;
  A: array[0..7] of integer; // Здесь предполагается, что у вас есть объявление массива A

begin
  k := 0;
  for i := 0 to 5 do // Изменено значение верхней границы цикла на 5, так как используется i+2 внутри цикла
  begin
    if A[i] <> 0 then // Добавлено условие проверки, чтобы выполнить обмен только в случае ненулевого значения
    begin
      k := k + 1;
      t := A[i];
      A[i] := A[i + 2];
      A[i + 2] := t;
    end;
  end;
  writeln(k); // Заменено "vrite" на "writeln"
end.

Помимо исправления ошибок, было также предположено, что у вас есть объявление массива A, которое не было представлено в вашем исходном коде.