var a: array[1..2,1..30] of integer; i,j: integer; begin for i: = 1 to 30 do begin writeln('введите номер ученика: '); read(a[1,i]); writeln('введите оценку: '); read(a[2,i]); end; for i: = 1 to 10 do begin writeln(i: 2,' - '); for j: = 1 to 30 if a[1,j]=i then write(a[2,i],' '); end; readkey; end.
Ответ дал: Гость
1. по буквам
2. по слогам
3. по согласным
4. произношение на оборот
5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите
Популярные вопросы