Простые одномерные массивы.

[Fonthreat]

Здравствуйте. У меня имеются две задачи простые и небольшие, которые нужно решить. Среда - PascalABC. Я, можно сказать, новичок, и по возможности было бы неплохо напротив каждой строки в коде программы написать, что мы тут делаем

Собственно, вот две задачи, которые нужно решить:

Массив1: Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет - вывести 0.

Массив2: Дан массив размера N. Найти максимальный из его локальных минимумов (локальный минимум - это элемент, который меньше любого из своих соседей)

[Google2010]

1)

z:=a[1]/a[2];
for i:=2 to n-1 do
if a[i]/a[i+1]<>z then begin break;z:=0;end;
Writeln(z);

2)

for i:=2 to n-1 do
if (a[i]<a[i+1]) and (a[i]<a[i-1]) then begin break; max:=a[i];end;
for i:=2 to n -1 do
if (a[i]<a[i+1]) and (a[i]<a[i-1]) and (a[i]>max) then  max:=a[i];
writeln(max);

[Fonthreat]

Немного не понял. А процедуры и функции тут не нужны?

Вот короткий пример одной из задач на паре:

Program P1;
const=10;
var m:array[1...n] of integer
i:integer;
begin
for i:=1 to n do
m[i]:=random (20)-10;
for i:=1 to n do
write (m[i]:3);
end.

Как нибудь можно в таком виде их написать?
Я просто сомневаюсь, что смогу объяснить вышеприведенный способ...

[Google2010]

А процедуры и функции тут не нужны?

а зачем?

Как нибудь можно в таком виде их написать?

можно конечно! допишите описание переменных, ввод-вывод исходного массива добавьте мой код потом

 readln;end.

и все)

[IT-man]

Стучи в аську -Напишу Быстро и Недорого С комментариями!

[Fonthreat]

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

а зачем?

можно конечно! допишите описание переменных, ввод-вывод исходного массива добавьте мой код потом

 readln;end.

и все)

Блин...Я тупой, ничего не понял Впервые вижу break и 1 to n-1

Можно мне хоть одну задачку целиком?

P.S Это кстати для паскаля?

[Google2010]

Это кстати для паскаля?

да

Можно мне хоть одну задачку целиком?

я точно писать не буду! возьмите книжку и учите!