type
teach = record
firstName, lastName: string;
end;
lecture = record
teacher: teach;
subject: string;
shifr, auditoria, day, para: integer;
constructor create(teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer);
begin
teacher.firstName := teachFirstName;
teacher.lastName := teachLastName;
subject := subject_;
shifr := shifr_; auditoria := auditoria_; day := day_; para := para_;
end;
end;
var
a: array [1..2] of lecture;
begin
for i: byte := 1 to 2 do
begin
a[i] := new lecture('Ололош' , 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7);
end;
end.
begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.
1->
2->
3=
4-<
5->
Самому надо думать,а не тут вопросы задавать.<span />
В 1804 году Жозеф Мари Жаккар<span> разработал ткацкий станок, в котором вышиваемый узор определялся </span>перфокартами<span>. Серия карт могла быть заменена, и смена узора не требовала изменений в механике станка. Это было важной вехой в истории программирования.</span>