Написать программу в pascal группа из 9 студентов сдала 2 экзамена по 2 предметам. оценки от 2 до 5. составить программу которая будет выводить эти сведения и будет показывать количество студентов имеющих средний меньше 3 по двум экзаменам

const n=9;

var marks:array[1..n,1..2] of 2..5;

i,k:integer;

begin

writeln('Оценки студентов:');

for i:=1 to n do

begin

marks[i,1]:=random(4)+2;

marks[i,2]:=random(4)+2;

writeln(i,': ',marks[i,1]:3,marks[i,2]:3);

end;

k:=0;

for i:=1 to n do

if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;

writeln('Количество студентов, имеющих средний < 3 = ',k);

end.

Пример:

Оценки студентов:

1:   5  4

2:   5  4

3:   4  3

4:   5  5

5:   2  2

6:   2  3

7:   5  5

8:   3  4

9:   2  2

Количество студентов, имеющих средний < 3 = 3

Class ArrayEven{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
  while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
  } eArrayCell:
  for(int cCell = 0; cCell<eArray.length-1; cCell++){
   if(eArray[cCell]%2==1)continue;
   else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
   if(eArray[eCell]%2==1){
    eArray[eArray.length-1]=eArray[cCell];
    eArray[cCell]=eArray[eCell];
    eArray[eCell]=eArray[eArray.length-1];
    continue eArrayCell;
   }
   break;
  }
  for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
 }
}

Class ArrayEven{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
  while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
  } eArrayCell:
  for(int cCell = 0; cCell<eArray.length-1; cCell++){
   if(eArray[cCell]%2==0)continue;
   else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
   if(eArray[eCell]%2==0){
    eArray[eArray.length-1]=eArray[cCell];
    eArray[cCell]=eArray[eCell];
    eArray[eCell]=eArray[eArray.length-1];
    continue eArrayCell;
   }
   break;
  }
  for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
 }
}