Program Task; Const pupils = 20; subjects = 10; Var marks: Array[1..pupils, 1..subjects] of Integer; marks_average: Array[1..pupils] of Real; i, j: Integer; all_marks_average: Real; Begin For i := 1 To pupils Do Begin WriteLn('Введите через пробел оценки ученика №', i); For j := 1 To subjects Do Read(marks[i, j]); End; For i := 1 To pupils Do Begin For j := 1 To subjects Do marks_average[i] := marks_average[i] + marks[i, j]; marks_average[i] := marks_average[i] / subjects; End; For i := 1 To pupils Do all_marks_average := all_marks_average + marks_average[i]; all_marks_average := all_marks_average / pupils; WriteLn('Результат: ', all_marks_average:2:2); ReadLn; End.
НАПРИМЕР: а - точка б - три точки в - четыре точки г - г в другую сторону и точки с боку д - солнышко е - о точки с низу ё - о точки с верху ж - ~ ( значок пример если что)) з - з только в обратную сторону и - палка й- палка и точка к- перечёркнутый круг л - круг м - знак равно о - запятая п - # р - значок плотности с - знак доллора $ т - "крыша домика" типо л только по длиннее и постранее у - <> ф- >< х - две точки ц - :; ч - ;: ш - перевернутая ш щ - перевернутая ш точки снизу и с верху ъ - ( ы - () ь - ) э - значок обьёма ю -V точки с верху я - V точки с низу
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
End.
а - точка
б - три точки
в - четыре точки
г - г в другую сторону и точки с боку
д - солнышко
е - о точки с низу
ё - о точки с верху
ж - ~ ( значок пример если что))
з - з только в обратную сторону
и - палка
й- палка и точка
к- перечёркнутый круг
л - круг
м - знак равно
о - запятая
п - #
р - значок плотности
с - знак доллора $
т - "крыша домика" типо л только по длиннее и постранее
у - <>
ф- ><
х - две точки
ц - :;
ч - ;:
ш - перевернутая ш
щ - перевернутая ш точки снизу и с верху
ъ - (
ы - ()
ь - )
э - значок обьёма
ю -V точки с верху
я - V точки с низу