Помогите пожалуйста в паскаль Дано было 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.
В первом нужно было составить прогу, которая запрашивает значения элементов одномерного массива А.
Во втором - дополнить предыдущую программу так, чтобы, формировался и выводился на экран в строку новый числовой массив В, в котором элементы на 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.
More Questions From This User See All