Посмотрите пожалуйстя верно ли я решила задачу.если есть ошибки ...
Посмотрите пожалуйстя верно ли я решила задачу.если есть ошибки ...дан масси Nнайти два соседних элемента, сумма которых максимальна, и вывести эти элементы в порядке возрастания их индексов.
program vozrastanie;
var a,b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a:=random(200)-100;
end;
b:=0;
for i:= 1 to 9 do
begin
b:= a +a[i+1];
if (b>b[i+1])then
begin
i:=i+1;
writeln(a,,a[i+1])
end;
end;
end.
program vozrastanie;
var a,b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a:=random(200)-100;
end;
b:=0;
for i:= 1 to 9 do
begin
b:= a +a[i+1];
if (b>b[i+1])then
begin
i:=i+1;
writeln(a,,a[i+1])
end;
end;
end.
Гость
Ответ(ы) на вопрос:
Гостьа ты запускала программу, проверяла ее? b:=0; -ошибка. нельзя переменной массива присвоить значение. можно только конкретно элементу b:= a +a[i+1]; - ошибка. нельзя переменной массива присвоить значение. можно только конкретно элементу if (b>b[i+1])then - ошибка. нельзя сравниватьпеременную массива с элементом массива writeln(a,,a[i+1]) - нельзя выводить переменную массива, а только элемент a[i+1]. еще раз всё перепроверь . может еще где-то ошибочка есть
ГостьДа, все правильно! 12
Не нашли ответ?
Похожие вопросы