найдите ошибки в составлении массива

[Yuuuu]

Всем добрый вечер! Помогите плиз найти ошибки в задачах, а то в итоге какая-то муть выходит(((

Дан массив целых чмсел, состоящий из 10 элементов. Записать его с клавиатуры. Вывести индексы тех элементов, значения которых больше значения предыдущего элемента.

var a:array [1..10] of integer;
i: Integer;

begin
for i:=1 to 10 do begin 
Write ('a[', i, '] = ');
Readln(a[i]);
if a[i] > a[i-1] then Writeln(i);
end;
readln;
end.

Определить есть ли 2 пары элементов с одинаковыми знаками. Элементы вводятся с клавиатуры.

const n = 5 ;
var a:array [1..n] of integer;
i: Integer;  
index: Integer; 

begin
index: =0;
for i:=1 to n - 1 do begin 
Write ('a[', i, '] = ');
Readln(a[i]); 
If ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then writeln ('True') else writeln('No');
end;
readln;
readln;
end.

[Greblin]

if a[i] > a[i-1] then Writeln(i);

Когда i = 1, i - 1 = 0, и Вы вылетаете за границы массива. Вам надо сначала считать, а потом уже циклом от 2 до 10 выполнить основную задачу. Если писали сами, то исправить сможете

If ((a[i]>0) and (a[i+1]>0))

На этом шаге Вы считали i-ый элемент, i+1-го у Вас ещё нет

[Yuuuu]

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

if a[i] > a[i-1] then Writeln(i);

Когда i = 1, i - 1 = 0, и Вы вылетаете за границы массива. Вам надо сначала считать, а потом уже циклом от 2 до 10 выполнить основную задачу. Если писали сами, то исправить сможете

Здесь понял: от 2 до 10 брать надо?

If ((a[i]>0) and (a[i+1]>0))

На этом шаге Вы считали i-ый элемент, i+1-го у Вас ещё нет

А вот тут если можно поподробнее...

[Greblin]

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

Здесь понял: от 2 до 10 брать надо?

В первом цикле от 1 до 10 только считать данные, другим циклом с 2 до 10 собственно проверить что там требуется

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

If ((a[i]>0) and (a[i+1]>0))

А вот тут если можно поподробнее...

Ну Вы считали только i-ый элемент только что, i+1-го у Вас в массиве ещё нет, Вы его только на следующем шаге цикла считаете

[Yuuuu]

If ((a[i]>0) and (a[i]>0)) or ((a[i]<0) and (a[i+1]<0)) then writeln ('True') else writeln('No');

Так, что ли?

[Greblin]

Вы этот a[i+1] ещё не считали с клавиатуры, а уже сравниваете с ним. Там может быть любой мусор лежать, пока Вы не считаете его на следующей итерации цикла. Опять-таки - разбейте на два цикла: первый считывает, второй проверяет

[Yuuuu]

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

Вы этот a[i+1] ещё не считали с клавиатуры, а уже сравниваете с ним. Там может быть любой мусор лежать, пока Вы не считаете его на следующей итерации цикла. Опять-таки - разбейте на два цикла: первый считывает, второй проверяет

А вы не могли бы написать как это будет выглядеть в паскале. Ну очень мне это понять надо!

[9i.]

вам нужно просто использовать 2 разных цикла в каждой из программ
1- для ввода всех данных в массив
2- для проверки проверяемых условий

[Yuuuu]

Плиз, напишите как это будет в паскале. Я уже 3 часа маюсь...

[Katus]

Readln(a[i]);
end;
for i:=1 to n - 1 do 
If ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then writeln ('True') else writeln('No');