Найти максимальное значение расхода топлива в указанном диапазоне

@kalanda · Регистрация: 06.02.2018

Author24 — интернет-сервис помощи студентам

задан диапозон от 14 до 18(14 до 18 это обьем бака) в этом диапозоне ищется максимальное значение расход топлива
ошибка в диапозоне не понимаю как задать , обьясните

Pascal

// мой код
procedure minzan(na:integer; a:zavod; var n: Integer);
var i, max:integer;
begin
n:=0;
max:=1000;
for i:=1 to na do
  if(a[i].ob<18)and(a[i].ob=14)           {if (a[i].ob<=14)or (a[i].ob=18)}
  then if (max <>a[i].pa) then
  begin
    max := a[i].pa;
    n := i;
end;

.ob- обьем двигателя
.pa-расход топлива
процедуру можете удалить

@ZX Spectrum-128 · 07.02.2018, 11:07

Pascal

procedure minzan(na: integer; a: zavod; var n: Integer);
var
  i, max: integer;
begin
  n := 0;
  max := 0;
  for i := 1 to na do
    if (a[i].ob <= 18) and (a[i].ob >= 14) and (a[i].pa > max) then
    begin
      max := a[i].pa;
      n := i;
    end;
end;

@kalanda · 07.02.2018, 11:25 **[ТС]**

спасибо огромное , помогло

@kalanda 0 / 0 / 1 Регистрация: 06.02.2018 Сообщений: 307
	07.02.2018, 11:25 [ТС]	3
	спасибо огромное , помогло 0

Опции темы