Program RANETKI_ZNANIJA;const n=5;m=6; //размерность 5 на 6 (5 строк 6 столбцов)var a:array[1..n,1..m]of integer; //объявляешь двумерный массив 5 на 6 i,j,max:integer; //i и j - счетчики, max - максимальное числоbeginwriteln('Матрица:');for i:=1 to n do //цикл с вложенным циклом для заполнения массива случайными числами begin for j:=1 to m do begin a[i,j]:=random(50); //заполняешь элементы массива числами от 0 до 50 write(a[i,j]:4); // :4 означает четыре пробела между числами end; writeln; //переход на новую строку end;writeln; //окончательный переход на новую строку{макс в строках}for i:=1 to n do begin max:=a[i,1]; //присваиваешь переменной max значение элемента i-тая строка, первый столбец for j:=1 to m do begin if a[i,j]>max then max:=a[i,j]; //сравниваешь каждый элемент массива с числом max //если элемента массива больше чем max, то присваиваешь max этот элемент end; writeln('В строке ',i,' макс=',max); //выводишь номер строки и значение max end;{макс в столбцах}for j:=1 to m do // ОБРАТИ ВНИМАНИЕ что этот тот же цикл что и предыдущий, то теперь вместо j стоит i, а вместо i стоит j begin max:=a[1,j]; for i:=1 to n do begin if a[i,j]>max then max:=a[i,j]; end; writeln('В столбце ',j,' макс=',max); end;readln;end.
Если шестеренка с буквами двигается против часовой, а стрелка стоит на месте то буквы будут перечисляться по порядку, от А до Я. Так как главная шестеренка вращает остальные, то вторая будет двигаться по часовой, это значит что начиная с нуля цифры на второй шестеренке будут уменьшаться, 0, 9, 8...1 и по кругу. Далее третья шестеренка будет двигаться против часовой значит цифры будут идти по нарастающей, от 0 до 6. Составим таблицу Таблица в картинках О Л И М П И А Д А = 51 85 12 76 42 12 00 64 00
1) крик Первоначально люди использовали лишь средства ближней связи — речь, слух, зрение. О надвигающейся опасности можно было предупредить криком, правда, услышать его могли на расстоянии всего нескольких сот метров.
2) барабан Звук барабана, особенно популярный среди африканских племен, был донести сигнал тревоги уже несколько километров.
3) интернет В 1969 году в США начала функционировать первая в компьютерная сеть. Она положила начало формированию всемирной компьютерной сети Интернет (Internet), огни миллионов компьютеров, включённых в Интернет, образуют единую информационную среду, открывающую любому человеку доступ ко всему информационному богатству человечества.
4) передатчик Рассмотрим несколько ситуаций, связанных с передачей информации. При переходе дороги на регулируемом перекрёстке вы (приёмник информации) воспринимаете зелёный сигнал светофора (источника информации) как разрешение перейти дорогу.
5) радиосвязь В 1895 году русский изобретатель А. С. Попов открыв радиосвязь, не требующую проводов и кабелей. Вначале радиосвязь мало чем отличалась от телеграфа.
6) морзе До середины 20-х годов XX века использовался специальный помехоустойчивый код Морзе. Со временем были изобретены различные помехозащитной записи звука и появилась звуковая радиосвязь, в человеческий быт вошли радиоприёмники. Сегодня существует очень много мощных радиостанций. Чтобы не испытывать взаимных помех, они работают на разных радиоволнах — длинных, средних, коротких, ультракоротких и дециметровых. Но до сих пор в экстремальных ситуациях, когда существуют сильные природные помехи, используют радиотелеграфный передачи информации.
7) приёмник В передаче информации всегда участвуют две стороны: тот, кто передаёт информацию (источник информации) , и тот, кто её получает (приёмник информации) .
...
for I := 1 to n do
for j := 1 to m do
maxv := max(maxv, a[I,j]);
writeln(maxv);