Укажите соответствие между уровнем запаса и спросом на запас, если запаса хватит на 7 дней: уровень запаса 280 ед. < спрос на запас 40 ед./день
263
486
Ответы на вопрос:
USES Crt;
VAR
M:ARRAY[0..5,0..6] OF INTEGER; MAX:ARRAY[0..6] OF INTEGER;
I,J:BYTE;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения элементов двумерного массива');
FOR I:=1 TO 5 DO Begin
FOR J:=1 TO 6 DO Begin
M[I,J]:=Random(20)-8; Write(M[I,J]:3);
End; WriteLn;
End; WriteLn;
{ Формирование одномерного массива}
WriteLn(' Значения элементов одномерного массива');
FOR J:=1 TO 6 DO Begin
MAX[J]:=ABS(M[1,J]);
FOR I:=2 TO 5 DO
IF ABS(M[I,J]) > MAX[J] THEN MAX[J]:=ABS(M[I,J]);
Write(MAX[J]:3);
End;
END.
VAR
M:ARRAY[0..5,0..6] OF INTEGER; MAX:ARRAY[0..6] OF INTEGER;
I,J:BYTE;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения элементов двумерного массива');
FOR I:=1 TO 5 DO Begin
FOR J:=1 TO 6 DO Begin
M[I,J]:=Random(20)-8; Write(M[I,J]:3);
End; WriteLn;
End; WriteLn;
{ Формирование одномерного массива}
WriteLn(' Значения элементов одномерного массива');
FOR J:=1 TO 6 DO Begin
MAX[J]:=ABS(M[1,J]);
FOR I:=2 TO 5 DO
IF ABS(M[I,J]) > MAX[J] THEN MAX[J]:=ABS(M[I,J]);
Write(MAX[J]:3);
End;
END.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
asjadorn12.12.2021 12:04
-
shamsutdinovaa307.05.2021 12:33
-
Юлия075330.07.2020 04:07
-
maxprok201203.08.2021 01:16
-
mashanemiro110p08m3830.06.2021 09:14
-
вика366202.02.2023 21:27
-
trohy7113.01.2022 06:36
-
13SCHOOL1304.08.2022 18:54
-
abduboriy200411.03.2020 08:10
-
GeorgeWashUSA15.07.2021 21:30
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.