Паскаль.

[svoi92]

1_Известны оценки каждого из 18 учеников по 3-ём предметам.Определить ввод информации по этой таблице и определить:
а)общее количество пятёрок
б)количество троек у каждого ученика
в)количество двоек по каждому предмету.


2_Два n-х числа называются дружественными, если каждое из них равно сумме двух делителей другого (само другое число в качестве делителя не рассматривается). найти все пары натуральных дружественных чисел меньше 50000!

[Косюра]

Так. Ну по первой задаче ввод ты сам напишешь ибо весь код я писать не буду.

общее количество пятерок я бы считала так:

Five:=0;
for I:=1 to 18 do
  for J:=1 to 3 do
     if Student[i].Mark[j]=5 then Five:=Five +1;

количество троек у каждого ученика

for I:=1 to 18 do
begin
Troyak[i]:=0;
 for j:=1 to 3 do
   if Student[i].Mark[j] = 3 then Troyak[i]:=Troyak[i]+1;
end;

количество пар по каждому предмету.

for j:=1 to 3 do
begin
Para[j]:=0;
for i:=1 to 18 do
  if student[i].mark[j]=2 then para[j]:=para[j]+1;
end;

Это то что касается первой задачи. Дописывай сам уже. Это куски.
P.S.

Stud = record
         Mark: array [1..3] of Integer;
       end;

Student: array [1..18] of Stud;
para: array [1..3] of Integer;
Troyak: array [1..18]of integer;
Five: integer;