задание 1
Разработать классы для описанных ниже объектов. Включить в класс методы set (…), get (…), show (…). Определить другие методы.
Опишите класс Scool (фамилия и имя, класс, оценки за четверть, средний оценок). Введите с клавиатуры данные в массив, состоящий из n элементов типа Scool . Выведите на экран информацию из данного списка фамилии тех учеников, которые не получили ни одной тройки за последнюю четверть. В каких классах учатся эти ученики? Каков их средний ?
задание 2
В двумерном массиве хранится информация о количестве учеников в том или ином классе каждой параллели школы с первой по одиннадцатую (в первой строке — информация о количестве учеников в первых классах, во второй — о вторых и т. д.). В каждой параллели имеются 4 класса. Определить среднее количество учеников в классах каждой параллели.
сделать в c#

Pascall

uses crt,graphABC;

var w:char;

   xc,yc,c,x,y,i:integer;

begin

hidecursor;

repeat

clrscr;

writeln('Выберите фигуру');

writeln('1-треугольник');

writeln('2-квадрат');

writeln('3-круг');

writeln('4-ромб');

writeln('5-эллипс');

writeln('другое - выход');

read(w);

xc:=windowwidth div 2;

yc:=windowheight div 2;

setpencolor(clRed);

case w of

'1':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));

   for i:=1 to 4 do

    begin

     x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));

     y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));

     lineto(x,y);

    end;

   readln

   end;

'2':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   rectangle(xc-150,yc-150,xc+150,yc+150);

   readln

   end;

'3':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   circle(xc,yc,150);

   readln

   end;

'4':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc-100,yc);

   lineto(xc,yc-150);

   lineto(xc+100,yc);

   lineto(xc,yc+150);

   lineto(xc-100,yc);

   readln

   end;

'5':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   ellipse(xc-150,yc-100,xc+150,yc+100);

   readln

   end;

end;

until not(w in ['1'..'5'])

end.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

type
  Point=(real,real);

function ReadPoint(n:integer):Point;
begin
  var a,b:real;
  Write('Координаты точки ',n,': '); Read(a,b);
  Result:=(a,b)
end;

function GetPoints(n:integer):array of Point;
begin
  Result:=new Point[n];
  for var i:=0 to n-1 do Result[i]:=ReadPoint(i+1)
end;

function Lsqr(a,b:Point):=sqr(b[0]-a[0])+sqr(b[1]-a[1]);

function Diags(a:array of Point; n:integer):array of real;
begin
  Result:=new real[n*(n-3) div 2];
  var k:=0;
  for var i:=0 to n-3 do
    for var j:=i+2 to min(n+i-2,n-1) do begin
      Result[k]:=Lsqr(a[i],a[j]);
      k+=1
      end;
end;

begin
  var n:=ReadInteger('Количество вершин:');
  if n>3 then begin
    var a:=GetPoints(n);
    Writeln('Длина наибольшей диагонали равна ',sqrt(Diags(a,n).Max):0:5)
    end
  else Writeln('Диагонали отсутствуют')
end.

Пример
Количество вершин: 5
Координаты точки 1: -3 2.5
Координаты точки 2: 3 5.2
Координаты точки 3: 6.1 1
Координаты точки 4: 2 -7.3
Координаты точки 5: -5 -7
Длина наибольшей диагонали равна 14.58904