1. Как выглядит блок-схема цикла с предусловием? Объясните исполнение этого цикла.

129

485

Посмотреть ответы 1

Ответы на вопрос:

aaskarova2004

Информатика

4,8(14 оценок)

Var i, k, n, j, z, x: integer; b, c, d: array[1..10000] of integer; a, e: array[1..10000] of string; m: string; begin readln(n); for i: =1 to n do readln(a[i]); readln(b[i]); readln(c[i]); for i: =1 to n do for j: =1 to n do if b[i]< b[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]); {это сортировка по тиражу} for i: =1 to n do begin e[i]: =copy(a[i], 1, 2); {тут расчет на то, что название начинается с заглавной буквы алфавита} val(e[i], d[i]); end; for i: =1 to n do for j: =1 to n do if d[i]< d[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]); {сортировка по тиражу} readln; end.