Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает! const n=3;m=4; var a:array [1..n,1..m] of integer; i,j,k,max:Integer; ind:array [0..1] of Integer=(1,1); begin Randomize; for i:=Low(a) to High(a) do for j:=Low(a) to High(a[1]) do a[i,j]:=Random(100); for i:=Low(a) to High(a) do begin writeln; for j:=Low(a) to High(a[1]) do write(a[i,j]:3); end; max:=a[1,1]; for i:=Low(a) to High(a) do for j:=Low(a) to High(a[1]) do if a[i,j]> max then begin max:=a[i,j]; ind[0]:=i; ind[1]:=j; end; writeln; Writeln(' Max element: ',max); Write(' Index: '); for i:=0 to 1 do write(ind[i],' '); Readln; end.
Добрый день! Рад помочь вам с этим вопросом. Для определения тарифа за услуги видеосвязи в зависимости от дня недели и времени суток, нам понадобится знать условия тарифного плана. Допустим, есть такой тарифный план:
- Понедельник - пятница
- С 8:00 до 18:00 - 5 рублей в минуту
- С 18:00 до 22:00 - 3 рубля в минуту
- С 22:00 до 8:00 - 2 рубля в минуту
- Суббота и воскресенье
- С 8:00 до 22:00 - 4 рубля в минуту
- С 22:00 до 8:00 - 2 рубля в минуту
Давайте рассмотрим пример, чтобы вы поняли, как рассчитывать сумму к оплате.
Предположим, вы загрузили видео на своем устройстве и его длительность составляет 15 минут. Чтобы определить сумму к оплате, нужно умножить стоимость одной минуты видеосвязи на количество минут.
Допустим, это произошло в понедельник в 12:30. Тогда мы будем считать стоимость за услуги видеосвязи на основе указанного тарифного плана:
- C 8:00 до 18:00 в будние дни - 5 рублей в минуту.
- Загрузка произошла в 12:30, что означает, что это период "с 8:00 до 18:00".
- Стоимость за одну минуту составляет 5 рублей.
- Количество минут - 15.
- Итого, сумма к оплате составит: 5 рублей/мин * 15 мин = 75 рублей.
Таким образом, в данном случае сумма, которую вы должны заплатить за 15 минут видеосвязи, составит 75 рублей.
Надеюсь, это объяснение было понятным и полезным для вас. Если у вас возникнут еще вопросы, не стесняйтесь задавать!
const n=3;m=4;
var a:array [1..n,1..m] of integer; i,j,k,max:Integer; ind:array [0..1] of Integer=(1,1);
begin
Randomize;
for i:=Low(a) to High(a) do
for j:=Low(a) to High(a[1]) do
a[i,j]:=Random(100);
for i:=Low(a) to High(a) do
begin
writeln;
for j:=Low(a) to High(a[1]) do
write(a[i,j]:3);
end;
max:=a[1,1];
for i:=Low(a) to High(a) do
for j:=Low(a) to High(a[1]) do
if a[i,j]> max then
begin
max:=a[i,j];
ind[0]:=i;
ind[1]:=j;
end;
writeln;
Writeln(' Max element: ',max);
Write(' Index: ');
for i:=0 to 1 do
write(ind[i],' ');
Readln;
end.