Сортировка будет проводиться сначала по полю Автор в алфавитном порядке. Затем по полю Издательство в порядке установленном пользователем: Жазушы, Мектеп, Эксмо, Азбука, Просвещение.
1) begin var a:=ReadArrInteger('Введите 10 чисел:',10); var i:=a.IndexMax; Writeln('Максимум A[',i+1,']=',a[i]); end.
2) const n=6;
type Q=record ch:integer; zn:integer; end; var a:array[1..n] of Q; j,k,max:integer; f:boolean; mx:Q;
begin write('k: '); readln(k); for var i:=1 to n do begin writeln('Дробь ',i); write('Введите числитель= '); readln(a[i].ch); repeat write('Введите знаменатель= '); readln(a[i].zn); until a[i].zn>0; end; writeln('Введенные дроби:'); for var i:=1 to n do write(a[i].ch,'/',a[i].zn,' '); writeln; j:=0; for var i:=1 to n do if (a[i].ch div a[i].zn mod k = 0) then j:=j+1; writeln('кол-во ',j); end.
ответ будет 10
Объяснение:
Сортировка будет проводиться сначала по полю Автор в алфавитном порядке. Затем по полю Издательство в порядке установленном пользователем: Жазушы, Мектеп, Эксмо, Азбука, Просвещение.