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

(pascal abc) в один из летних дней аркадий со своими родителями отправился в автомобильное путешествие. он надеялся, что за городом им удастся избежать ненавистных пробок. но, увы, уже через час они попали в затор. аркадий загрустил и задумался о том, с какой скоростью они могли бы ехать, если бы не было участок дороги, на котором они сейчас находятся, — однополосный. а это значит, что обгонять едущие впереди машины не представляется возможным. т. е. какой бы мощной машина ни была, она все равно не сможет ехать быстрее, чем машина впереди неё. аркадий хорошо разбирается в машинах и поэтому знает максимальные скорости тех машин, которые едут впереди. теперь он хочет понять, с какой максимальной скоростью могла бы ехать каждая машина на данном участке. входные данные в первой строчке дано число n (1 ≤ n ≤ 200) — количество машин в пробке. в следующих n строчках записано по одному целому числу в каждой, причем в i-й строчке записана скорость i-й машины. скорость каждой из машин не превышает 300. считается, что (i + 1)-я машина едет за i-й, а первая машина может ехать со своей максимальной скоростью. выходные данные выведите n чисел — скорости машин, с которыми они могли бы ехать на данном участке. входные данные 2 80 100 выходные данные

👇
Ответ:
max438073
max438073
15.11.2021
Решение в приложении!
4,5(28 оценок)
Открыть все ответы
Ответ:
lim155
lim155
15.11.2021
Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.
4,7(24 оценок)
Ответ:
algebraigeometria1
algebraigeometria1
15.11.2021
Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.
4,5(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ