Полет известно время вылета самолёта нн часов и мм минут ,а также продолжительность полёта ( нр часов и мр минут) напишите программу,которая определяет время прибытия самолёта в аэропорт назначение в формате "чс: мм"
Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.
const n=5; m=6; var a:array[1..n,1..m] of integer; i,j,min,max:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(20); write(a[i,j]:4); if j=1 then begin min:=a[i,1]; max:=a[i,1]; end else begin if a[i,j]<min then min:=a[i,j]; if a[i,j]>max then max:=a[i,j]; end; end; writeln('; min=',min,'; max=',max); end; end.
var x: array[1..m1, 1..n1] of integer; i, j, m, n, mx, mn: integer;
begin Write('Введите через пробел число строк и столбцов матрицы: '); Readln(m, n); Randomize; writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to n do begin x[i, j] := Random(100) - 50; Write(x[i, j]:5) end; Writeln end; for i := 1 to m do begin mx := x[i, 1]; mn := mx; for j := 2 to n do if mx < x[i, j] then mx := x[i, j] else if mn > x[i, j] then mn := x[i, j]; Writeln('В строке ', i, ' мin=', mn, ', max=', mx) end end.
Тестовое решение:
Введите через пробел число строк и столбцов матрицы: 5 8
h0, m0, h1, m1, h2, m2: integer;
begin
readln(h0, m0, h1, m1);
m0 += h0 * 60;
m1 += h1 * 60;
m2 := m0 + m1;
h2 := (m2 div 60) mod 24;
m2 := (m1 + m0) mod 60;
h0 := h2 div 10;
h1 := h2 mod 10;
m0 := m2 div 10;
m1 := m2 mod 10;
write(h0, h1, ':', m0, m1);
end.