[Paskal]Одномерные массивы

[Mad_Cat]

а ты imax то нашел?

[1Sol]

чтобы сделать что-то для последующего элемента после max:
for i:=imax+1 to N do
но в данном случае выдаёт ошибку (c1z3.pas(27) : Нельзя изменять значение переменной цикла внутри этого цикла) при такой записи:
for i:=imax+1 to N do
for i:=1 to trunc(N/2) do
begin
buf := A[i];
A[i] := A[N-i+1];
A[N-i+1] := buf;
end;

[1Sol]

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

а ты imax то нашел?

max:=A[1];
imax:=1;
for i:=1 to n do
if A[i]>max then
begin
max:=A[i];
imax:=i;
end;

[Mad_Cat]

uses crt;
var
  a:array[1..12] of integer;
  i,j,max,pos1,t:integer;
begin
  Randomize;
  for i := 1 to 10 do
  begin
   a[i]:=random(20)-10 ;
   write(A[i]:5);
  end;
  pos1:=1;
  for i := 2 to 10 do
    if a[i]>a[pos1] then
    begin
      pos1:=i;
    end;
writeln;
pos1:=pos1+1;
for j:=pos1 to (pos1+((10-pos1) div 2)) do
begin
max := A[j];
A[j] := A[10+pos1-j];
A[10+pos1-j] := max;
end;
writeln;
for i := 1 to 10 do
  begin
   write(A[i]:5);
  end;
  writeln;
end.

результат

0 -6 0 6 5 2 2 -10 -5 1
0 -6 0 6 1 -5 -10 2 2 5

[1Sol]

а можно это записать без randomaze и без использования crt?
а то я уже измотался перебирать разные варианты записи.
Походу, не видать мне автомата по информатике из-за этой дурацкой задачи)

[ByAlex]

Сообщение от 1Sol

а можно это записать без randomaze и без использования crt?
а то я уже измотался перебирать разные варианты записи.
Походу, не видать мне автомата по информатике из-за этой дурацкой задачи)

Добавь в мой код то, что написали тебе выше, только без Randomize!
То есть, вместо -

uses crt;
var
  a:array[1..12] of integer;
  i,j,max,pos1,t:integer;
begin
  Randomize;
  for i := 1 to 10 do
  begin
   a[i]:=random(20)-10 ;
   write(A[i]:5);
  end;

ставь

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..12] of integer;
  i,j,max,pos1,t:integer;
begin
  writeln('Vvedite massive A[10]:');
  for i := 1 to 10 do
  begin
    write('A[',i,'] = ');
    readln(a[i]);
  end;

[Mad_Cat]

а за что тебе автомат то если ты не знаешь ничего???