М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
marsik12912
marsik12912
11.05.2022 23:43 •  Информатика

Найти максимальный среди всех элементов тех строк заданной матрицы, которые (либо по возрастанию, либо по убыванию). составить программу в pascal.

👇
Ответ:
Кей121
Кей121
11.05.2022
При использовании random() упорядоченные строки получаются редко. Можете массив вводить с клавиатуры.
const n=5; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,max:integer;
b1,b2:boolean;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=-1000;
for i:=1 to n do
 begin
 b1:=true; b2:=true;
 for j:=1 to m-1 do
  begin
  if a[i,j]<a[i,j+1] then b1:=false;
  if a[i,j]>a[i,j+1] then b2:=false;
  end;
 if b1 or b2 then
  for j:=1 to m do
   if a[i,j]>max then max:=a[i,j];
 end;
if max<>-1000
 then writeln('max = ',max)
 else writeln('В массиве нет упорядоченных строк');
end.

Пример:
45 34 88 53
 2 7 36 71
48 57 28 42
75 61 10 93
15 3 61 54
max = 71
4,5(99 оценок)
Открыть все ответы
Ответ:
Масянька189
Масянька189
11.05.2022

Команда - круг своих людей, имеющих общую цель. Стиль команды - это доверие и сотрудничество. Главные принципы командного взаимодействия: "Людям можно доверять, люди могут ". По другому: "Один за всех, все за одного".

Когда люди работают, как слаженная команда, у них есть одно общее дело, все вместе думают, все вместе делают, каждый знает, за что он отвечает, и другим. В команде все - свои, чужих нет. Нет отдельных интересов, есть общая задача, которая должна быть решена. 

В организации, выстроенной как команда, интересы руководства и сотрудников – общие. Руководитель и сотрудники – не враги. 

В команде может быть лидер, главный, руководитель . Его роль - координатор, настройщик, первый Хороший руководитель уважает свою команду и любит советоваться с людьми. Хорошая команда думает вместе с руководителем, но после того, как решение принято, решение руководителя не обсуждает, а выполняет. 

Сказано - сделано. И никто не бухтит.

Дружная команда не исключает единоначалия, а прекрасно его понимает и поддерживает. Главный ты - поддерживаем тебя. Буду главный я - знаю, что моя власть будет поддержана всеми. 

В команде отношения живые, личные, близкие, а не формальные, как с чужими. Здесь каждый готов каждому, равнодушное «Это не входит в мои обязанности» - в настоящей команде невозможно.

Если у вас у кого есть хорошая семья, то команда – это самая лучшая на свете семья. Все дружат, все любят друг друга, все Кому вынести ведро – не вопрос, кто сейчас идет, тот и выносит. Кого назначили – тот по расписанию и выносит. Кто-то может кому-то тот рад этой возможности.

В команде работать прекрасно. В команде работать веселее и проще, чем одному, усилия каждого складываются в одно течение, поддерживая одно другим: синергетический эффект. Впрочем, есть и опасность: в не сложившейся команде труднее контролировать личную ответственность каждого. Поэтому настоящая команда - это не колхоз, за свое дело отвечаешь ты сам. Члены команды знают, что такое личная отвественность: если поручено тебе - за это отвечаешь ты. Не можешь - попроси или откажись, но если порученное не выполнено - это ответственность лично твоя.

В команде принята открытость, здесь можно спрашивать и ответам здесь можно доверять. В команде меня не обманут. Мои коллеги – честные люди, за их словами нет двойного смысла, подставы не будет.

В команде люди доверяют друг другу. Контролировать работу каждого здесь не нужно, в команде понятно, что люди сюда пришли работать, а не отлынивать. Своих нужно поддерживать, а не контролировать. За ошибки не бьем. За ошибкой видим недостаток опыта и умений: поэтому не ругаемся, а поддерживаем и учим. Пишем для памяти, а не для защиты. Не нужно все фиксировать письменно, доказывая свои слова: тут говорят правду.

4,5(23 оценок)
Ответ:
Akureyri
Akureyri
11.05.2022
Объясню так, будто я компилятор =)
1. Вместо оператора присваивания (:=) оператор сравнения (=). В цикле не объясняется, что он должен делать, т.е. после do отсутствуют операторы, не говоря уже об отсутствии признака завершения строки - (;).
2. Вместо оператора присваивания - оператор сравнения, нет точки с запятой и операторов после do, цикл написан не в лучшем стиле - т.е. в качестве границы счетчика используется целочисленная константа - 1.3. Step это неизвестный для компилятора оператор или функция.
4. do отделен от операторов ;. Компилятор не выдаст ошибки, но программа зациклится.
5. Repeat-until - цикл с постусловием - т.е. логическое выражение a < 5 должно быть описано после ключевого слова until.
6. Выражения должны быть в скобках.
7. Лишняя ;.
8. Не хватает then после первого if.
10. Не хватает then после if. Неверно написан оператор сравнения (=>).
4,6(76 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ