Uses crt; var i,j: integer; f: array[1..8] of string; p: array[1..5] of string; otm: array[1..8,1..5] of integer; sbu: array[1..8] of real; sbp: array[1..5] of real; begin // ввод фамилий с клавиатуры writeln('введите 8 фамилий: '); for i: =1 to 8 do begin write(i,'-я фамилия ='); readln(f[i]); end; // закончен ввод фамилий // ввод предметов с клавиатуры writeln('введите 5 предметов: '); for i: =1 to 5 do begin write(i,'-й предмет ='); readln(p[i]); end; // закончен ввод предметов // выставление случайных оценок от 2 до 5 randomize; for i: =1 to 8 do for j: =1 to 5 do otm[i,j]: =random(4)+2; // закончено выставление оценок по пяти предметам для восьми уч-ся // вывод на экран табеля успеваемости write('фамилия': 10); for i: =1 to 5 do write (p[i]: 10); writeln; for i: =1 to 8 do begin write(f[i]: 10); for j: =1 to 5 do write(otm[i,j]: 10); writeln; end; end. {авторы программы} // на тройку: в итоговой таблице выводить sbu и sbp // на четверку: сколько человек без двоек и троек? сделайте на тройку и на четвёрку

DayanaTolepber    1   18.04.2019 19:31    1