Question

Впаскаль дано было 3 . с двумя справился, в третьем запутался окончательно. в первом нужно было составить прогу, которая запрашивает значения элементов одномерного массива а. во втором - дополнить предыдущую программу так, чтобы, формировался и выводился на экран в строку новый числовой массив в, в котором элементы на 1 меньше элементов массива а а в третьем изменить предыдущую программу так, чтобы в массиве в, элемент с номером i был равен максимальному элементу среди первых i элементов массива a и вот не знаю, как найти макс. элемент среди первых i элементов массива a в общем вот черновой вариант, может, найдете ошибку: program u2; var i,j,n,max: integer; a: array [1..6] of integer; b: array [1..6] of integer; begin if n=6 then a[1]: =2; a[2]: =5; a[3]: =7; a[4]: =-2; a[5]: =0; a[6]: =8; for j: = 1 to n do b[j]: = (a[i]-1); for i: = a[1] to a[3] do for j: = b[1] to b[6] do max: = a[1]; for i: =2 to 3 do for j: =1 to 6 do if a[i] > max then max: = a[i]; if b[j]=a[i] then write('b[j]'); writeln; end.

Answer 1

Program u2;
const n=6;
var i,max: integer;
a,b: array [1..n] of integer;
begin
a[1]:=2;
a[2]:=5;
a[3]:=7;
a[4]:=-2;
a[5]:=0;
a[6]:=8;
writeln('A:');
for i:=1 to n do write(a[i]:3);
writeln;
writeln('B:');
for i:=1 to n do 
 begin
 b[i]:= (a[i]-1);
 write(b[i]:3);
 end;
writeln;
max:=a[1];
for i:=1 to n do
 begin
 if a[i]>max then max:= a[i];
 b[i]:=max;
 end;
writeln('new B:');
for i:=1 to n do write(b[i]:3);
writeln;
end.

Результат:
A:
  2  5  7 -2  0  8
B:
  1  4  6 -3 -1  7
new B:
  2  5  7  7  7  8