Впаскаль дано было 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.
