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 // на четверку: сколько человек без двоек и троек? сделайте на тройку и на четвёрку
137
422
Ответы на вопрос:
Популярно: Информатика
-
Ellionora122712.04.2020 20:46
-
zhan31030429.01.2022 21:23
-
SocialКрип22.05.2021 11:50
-
мммммммммм1210.01.2020 21:39
-
nikita450230.11.2022 23:53
-
Маргарин1107.04.2022 07:02
-
zilga104.05.2021 00:47
-
АлираПендрагон01.06.2023 02:44
-
Aleksey456904.03.2023 16:08
-
stolyarovsemen12.09.2021 00:23