Помощь - Поиск - Пользователи - Календарь
Полная версия: Интересная задачка ;-)
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Незнайка 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.

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

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

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

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

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

закрыто.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.