Напишите программы в ! 33. составьте программу для определения, кто из двух учащихся учится лучше. фамилии учащихся и их оценки по трем предметам вводить с клавиатуры. предусмотрите вариант, когда средние одинаковы. 34. программа запрашивает три числа и выводит на экран разность между максимальным и минимальным числами.

// 33 const   n = 2; type   student = record       f: string;       p1, p2, p3: integer;   end; var   a: array[1..n] of student;   m: array[1..n]of real;   i: integer;   s: real; begin   s : = 0;   for i : = 1 to n do   begin       writeln('введите фамилию ', i, ' ученика ');       readln(a[i].f);       writeln('оценки по 3 предметам ');       readln(a[i].p1, a[i].p2, a[i].p3);       if (a[i].p1 + a[i].p2 + a[i].p3) / 3 > = s then begin           s : = (a[i].p1 + a[i].p2 + a[i].p3) / 3;           m[i] : = s;       end;   end;   if m[1] = m[2] then writeln('средний учащихся одинаков')   else if m[1] > m[2] then       writeln(a[1].f, ' учится лучше')   else  writeln(a[2].f, ' учится лучше') end. тест №1 введите фамилию 1 ученика иванов оценки по 3 предметам 3 4 5 введите фамилию 2 ученика петров оценки по 3 предметам 4 4 4 средний учащихся одинаков тест №2 введите фамилию 1 ученика иванов оценки по 3 предметам 3 4 4 введите фамилию 2 ученика петров оценки по 3 предметам 5 5 5 петров учится лучше // 34 var a,b,c,min,max: integer; begin   readln(a,b,c);   min: =a; max: =a;   if b< min then min: =b;   if b> max then max: =b;   if c< min then min: =c;   if c> max then max: =c;   writeln(max-min); end.

1) ответ: 3 25/2   11001 12(1) 6(0) 3(0) 1(1) 2)ответ 4 18/8   101 8(1) 1(0)