Решение нужно сейчас ! 1.вывести на экран наибольший рост в классе из 10 учеников

Program zadacha1;   var a,b,c: integer;     begin      writeln("введите рост первого ученика: ");       read(a);       writeln("введите рост второго ученика: ");       read(b);       writeln("введите рост третьего ученика: ");       read(c);         if (a> b) and (a> c) then writeln("наибольший рост у первого ученика! ");         if (b> a) and (b> c) then writeln("наибольший рост у второго ученика! ");         if (c> a) and (c> b) then writeln("наибольший рост у третьего ученика! ");  

Телеконференция -это, прежде всего, способ общения большого числа пользователей сети, интересующихся определенной темой. таких тем может быть неограниченное количество. к примеру, rec.arts.books - название телеконференции, посвященной вопросам искусства и , а sci.econ - проблемам . основным достоинством является возможность получения практически любой информации в достаточно короткие сроки. телеконференции могут быть не только интерактивными, реализуемыми в режиме on-line, но и вестись с любой задержкой, то есть осуществляться в режиме off-line.

Var i,j,k,min: integer;     a: array[1..10,1..10] of integer; begin   randomize;   for i: =1 to 10 do   for j: =1 to 10 do     a[i,j]: =random(15)+1;   min: =a[1,1];   for i: =1 to 10 do   for j: =1 to 10 do     if a[i,j]< min then min: =a[i,j];   for i: =1 to 10 do   for j: =1 to 10 do     if min=a[i,j] then k: =k+1;   for i: =1 to 10 do   begin   for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   writeln('минимальный элемент=',min);   writeln('кол-во равных элементов=',k); end.