Записи

[Camelot_2012]

Приняв способ изображения рационального числа в виде записи с двумя полями: числитель, знаменатель : integer, написать программу, позволяющую, во-первых, определить, есть ли среди 3 рациональных чисел равные и, во-вторых, вычислить наибольшее из данных рациональных чисел .

Program zapisi;
const n=3;
type
      Q=record
      chislitel:integer;
      znamenatel:integer;
end;
var
 a:array[1..n] of Q;
 i,j,k,max:integer;
begin
 
end;
begin
if chislitel/znamenatel>max then max:=chislitel/znamenatel;
writeln(max);
end.

Написал не все, но кажется вообще не правильно.

[TinMan]

Камелот, посмотри вот тут:
http://programmersforum.ru/showthread.php?t=175267