Question

Помогите, пожалуйста, написать код на Паскале!Даны номерные знаки автомашин двух таксопарков N1..N10 NN1..NN15 и расходы топлива каждой из автомашин за месяц R1..R10 RR1..RR15 напечатать номерные знаки автомашин первого и второго таксопарков с максимальными и минимальными расходами топлива.

Answer 1

Var N1:array[1..10] of integer;
    N2:array[1..15] of integer;
    R1:array[1..10] of integer;
    R2:array[1..15] of integer;
    min1, min2, max1, max2, i:integer;
    R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
 if R1[i]<min1 then
  begin
  min1:=R1[i];
  R1min:=i;
  end else
   begin
   if R1[i]>max1 then
    begin
    max1:=R1[i];
    R1max:=i;
    end;
   end;
for i:=1 to 15 do
 if R2[i]<min2 then
  begin
  min2:=R2[i];
  R2min:=i;
  end else
   begin
   if R2[i]>max2 then
    begin
    max2:=R2[i];
    R2max:=i;
    end;
   end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.

Answer 2

Конечно, я могу помочь написать код на Паскале для данной задачи. Вот пример кода на Паскале, который выполняет указанную задачу:

program MaxMinFuelCosts;

const
  N1 = 1; N10 = 10; // номерные знаки автомашин первого таксопарка
  NN1 = 1; NN15 = 15; // номерные знаки автомашин второго таксопарка
  R1 = 50; R10 = 60; // расходы топлива каждой из автомашин первого таксопарка за месяц
  RR1 = 45; RR15 = 55; // расходы топлива каждой из автомашин второго таксопарка за месяц

var
  maxFuelCost1, minFuelCost1, maxFuelCost2, minFuelCost2: Integer;
  maxFuelCar1, minFuelCar1, maxFuelCar2, minFuelCar2: Integer;

begin
  // Находим максимальные и минимальные расходы топлива для первого таксопарка
  maxFuelCost1 := R1;
  minFuelCost1 := R1;
  maxFuelCar1 := N1;
  minFuelCar1 := N1;

for i := N1 + 1 to N10 do
  begin
    if R[i] > maxFuelCost1 then
    begin
      maxFuelCost1 := R[i];
      maxFuelCar1 := i;
    end;
    if R[i] < minFuelCost1 then
    begin
      minFuelCost1 := R[i];
      minFuelCar1 := i;
    end;
  end;

// Находим максимальные и минимальные расходы топлива для второго таксопарка
  maxFuelCost2 := RR1;
  minFuelCost2 := RR1;
  maxFuelCar2 := NN1;
  minFuelCar2 := NN1;

for j := NN1 + 1 to NN15 do
  begin
    if RR[j] > maxFuelCost2 then
    begin
      maxFuelCost2 := RR[j];
      maxFuelCar2 := j;
    end;
    if RR[j] < minFuelCost2 then
    begin
      minFuelCost2 := RR[j];
      minFuelCar2 := j;
    end;
  end;

// Выводим результаты
  writeln('Максимальный расход топлива для первого таксопарка: Автомобиль ', maxFuelCar1, ' - ', maxFuelCost1);
  writeln('Минимальный расход топлива для первого таксопарка: Автомобиль ', minFuelCar1, ' - ', minFuelCost1);
  writeln('Максимальный расход топлива для второго таксопарка: Автомобиль ', maxFuelCar2, ' - ', maxFuelCost2);
  writeln('Минимальный расход топлива для второго таксопарка: Автомобиль ', minFuelCar2, ' - ', minFuelCost2);
end.

Этот код на Паскале находит номерные знаки автомашин первого и второго таксопарков с максимальными и минимальными расходами топлива за месяц. Надеюсь, это поможет вам решить вашу задачу!