(*Код*)
______________________________________________________________________
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 ] (без пробелов) |
! | Повторяю, 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... |
Привет всем!!!! помогите пожалуйста.... программирование на турбо паскале было пол года назад! а сейчас снова началось, но ток теперь на С++. Задали курсовик на паскале, а я же ничего не помню.... Скока в нете не искал, ничего подходящего не нашел... Тема такая: " составить программу обучения по переводу чисел из двоичной системы счисления в восьмеричную и шестнадцатиричную системы. программа должна предлагать двоичное чилсо, выбранное с помощью датчика случайных чисел,обучающийся должен назвать это число, а программа дать ответ о правильности ответа обучающегося или его ошибке, в случае ошибки вывести правильный ответ." Помогите, пожалуйста. очень надо!!!!!!!!!!!!
P.S. в начале программы должны присутствовать элементы меню, типа : 1 разработчик, 2 помощь, 3 начать обучение, 4 о программе, 5 выход....
М | sakol18, не задавай свои вопросы в чужих темах. закрыто. |