Question

1.Дан класс из 6 учеников вывести на экран фамилии учеников . 2.Вывести на экран фамилии учеников, имеющих оценки 5 по двум дисциплинам. 4.Распечатать фамилии учеников с максимальным средним баллом. 5.Рассортировать учеников по убыванию среднего балла.

Answer 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var A:array[1..100] of integer;
i,j,n,m1,m2:integer;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;