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

[Незнайка 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

[Michael_Rybak]

!

Повторяю, 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

[sakol18]

Привет всем!!!! помогите пожалуйста.... программирование на турбо паскале было пол года назад! а сейчас снова началось, но ток теперь на С++. Задали курсовик на паскале, а я же ничего не помню.... Скока в нете не искал, ничего подходящего не нашел... Тема такая: " составить программу обучения по переводу чисел из двоичной системы счисления в восьмеричную и шестнадцатиричную системы. программа должна предлагать двоичное чилсо, выбранное с помощью датчика случайных чисел,обучающийся должен назвать это число, а программа дать ответ о правильности ответа обучающегося или его ошибке, в случае ошибки вывести правильный ответ." Помогите, пожалуйста. очень надо!!!!!!!!!!!!

P.S. в начале программы должны присутствовать элементы меню, типа : 1 разработчик, 2 помощь, 3 начать обучение, 4 о программе, 5 выход....

[Michael_Rybak]

М

sakol18, не задавай свои вопросы в чужих темах. закрыто.