Program Sample;
const
n = 4;
var
i, maxValue, inpValue: integer;
begin
maxValue := low(maxValue);
for i := 1 to n do
begin
Write('Введите число: ');
ReadLn(inpValue);
if maxValue < inpValue then
maxValue := inpValue;
end;
WriteLn('Максимальное из ', n, ' чисел равно ', maxValue);
end.
1) x < -3 and x <= 10
2) x <> 0, y <> 0
3) x >= -10 and x <= 0
4) x mod 3 <> 0
Program pr1;
var a: array[1..10] of string; i, j: integer; s: string;
begin
for i := 1 to 10 do
readLn(a[i]);
for i := 1 to 10 do
for j:=1 to 10 do
if a[j] > a[i] then
begin
s := a[i];
a[i] := a[j];
a[j] := s;
end;
writeLn('отсортированный массив');
for i := 1 to 10 do
writeLn(a[i]);
<span>end.</span>
Нужно сместиться на -12;-8
Ответ оставил: Гость
пусть х км\ч скорость 1 поезда, тогда х+8 км\ч скорость 2 поезда. 10х - расстояние пройденное 1 поездом через 10 часов. 10(х+8) - расстояние пройденное 2 поездом за 10 часов. 10х + 10(х+8) - расстояние между двумя , а по условию известно, что это равно 720 км.
составим и решим уравнение.
10х + 10(х+8)=720,
10х + 10х + 80=720,
20х=720-80,
20х=640,
х=32.
если х=32, то х+8=32+8=40 км\ч
ответ. скорость 1 поезда 32км\ч, скорость 2 поезда 40 км\ч