Интересная задачка ;-), Программа посложнее Опции

[Незнайка 013]

(*Код*)
______________________________________________________________________

program upr8;
var a:array [1..10,1..15] of real;
i,j,m,n,max:integer
s:real;
begin
writeln('wwedi razmer MATRIZI');
writeln('wwedi koli4estwo strok');readln(n);
writeln('wwedi koli4estwo stolbzow');readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
s:=0;
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]>max then max:=a[i,j] end;
while s<2 do
if a[i,j]=max then s:=s+1
else exit;
end.

___________________________________________________________
(*Условие*)
Дана целочисленная прямоугольная матрица.Определить МАКСИМАЛЬНОЕ из чисел,Встречающихся более одного раза.
___________________________________________________________
(*от себя*)
Максимум находит ,но до этого как то надо найти повторяющиеся числа.Может стоит завести второй массив где записывают повторяющиеся числа а потом в нем искать максимум.вобщем это надо до нахождения максимума.

М

Размещай код между [ code=pas ] ... [ /code ] (без пробелов)

Сообщение отредактировано: klem4 - 17.03.2008 21:22