С в одной цистерне было в 3 разв больше бензина, чем в другой. когда в первую долили 54 л, а во вторую - 26 л, то в двух цистернах стало 200 л бензина. сколько литров бензина было в каждой цистерне первоначально? по действиям, не уравнением.
1) 200-54-26=120 л -было в двух цистернах первоначально 2) 1+3=4ц. - всего цистерн было первоначально (выражено через одну цистерну) 3) 120:4=30 л - было первоначально в 1-ой цистерне 4) 30·3=90 л - было первоначально в другой цистерне
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
2) 1+3=4ц. - всего цистерн было первоначально (выражено через одну цистерну)
3) 120:4=30 л - было первоначально в 1-ой цистерне
4) 30·3=90 л - было первоначально в другой цистерне