SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Oaip Цитата: решить надо с помощью unit-ов и процедур | любая (подчёркиваю ЛЮБАЯ) программа может быть разложена на процедуры, которые, можно выделить в отдельную библиотеку (unit) - даже WriteLn('Hello, world!') вопрос, конечно, в целесообразности, но технически - никаких проблем! умеете новые unit создавать и выносить туда процедуры??? Цитата: Дана последовательность чисел: a1,a2,...,an. | дык, раз не задано, каким именно образом "дана" последовательность, то выбираешь сам, как тебе удобнее. я бы предложил задать массив: Код: const N = 12; {произвольно - сколько чисел может быть в последовательности максимально} type MyArray = array[1..N] of integer; var RealNumberInArray : integer; A: MyArray; | Цитата: Проверить, верно ли, что каждый член этой последовательности больше его номера. | проверка в отдельной функции Код: function IsRealNumbersBiggerIndex(const TestA : MyArray; RealN : integer ) : boolean; var k : integer; begin IsRealNumbersBiggerIndex := false; for k:=1 to RealN do if TestA[k]<=k then Exit; {проверка провалилась - выходим, значение функции будет false} IsRealNumbersBiggerIndex := true; {всё верно, все числа больше, чем их номера} end; | Надеюсь, что дальше всё понятно?... |