Program z1; var a:array[1..100] of integer; i,n,k,mi,miu:integer; begin assign(input,'in.txt'); reset(input); readln(n); for i:=1 to n do begin read(a[i]); end; close(input); mi:=a[1];miu:=1; for i:=1 to n do begin if a[i]<mi then begin mi:=a[i];miu:=i end; end; i:=miu; while i<n do begin a[i]:=a[i+1]; i:=i+1 end; assign(output,'out.txt'); rewrite(output); for i:=1 to n-1 do begin write(a[i],' ') end; close(output) end.
Смотри таблицу во вложении. В светло-зелёные клетки вводим расстояния, которые проехали коротышки на каждом виде транспорта. В розовые - вводим цену за 1 км на каждом виде транспорта.
Таблица автоматически считает: - Сколько каждый коротышка заплатил за каждую поездку (бежевые ячейки) - Какое расстояние проехали все коротышки на одном виде транспорта (жёлтые) - Сколько денег потратили все коротышки на одном виде транспорта (синие) - Какое расстояние проехал каждый коротышка на всех видах транспорта (тёмно-зелёные) - Сколько денег потратил каждый коротышка в сумме на всех видах транспорта (коричневые) - Какое расстояние проехали все коротышки на всех видах транспорта (фиолетовая) - Сколько денег всего потратили все коротышки в сумме на всех видах транспорта (красная)
var a:array[1..100] of integer;
i,n,k,mi,miu:integer;
begin
assign(input,'in.txt');
reset(input);
readln(n);
for i:=1 to n do begin
read(a[i]);
end;
close(input);
mi:=a[1];miu:=1;
for i:=1 to n do begin
if a[i]<mi then begin
mi:=a[i];miu:=i
end;
end;
i:=miu;
while i<n do begin
a[i]:=a[i+1];
i:=i+1
end;
assign(output,'out.txt');
rewrite(output);
for i:=1 to n-1 do begin
write(a[i],' ')
end;
close(output)
end.