Написать программу в pascal. переписать сведения о багаже из переменной bagaj в переменную bag. в переменной bag сведения о багаже каждого пассажира представляются массивом из двух целых чисел - числа вещей и общего веса вещей, выраженного в граммах. составить также программу обратного преобразования: переписи сведений о багаже из переменной bag в переменную bagaj.

158

403

Посмотреть ответы 2

Ответы на вопрос:

khramenkova

Информатика

4,6(43 оценок)

// pascalabc.net 3.0, сборка 1073 var bag,bagaj: array[1..2] of longint; begin bagaj[1]: =5; bagaj[2]: =43600; { перенос bagaj -> bag } bag[1]: =bagaj[1]; bag[2]: =bagaj[2]; writeln('предметов- ',bag[1],', общий вес ',bag[2]); bag[1]: =4; bag[2]: =24540; { перенос bag -> bagaj } bagaj[1]: =bag[1]; bagaj[2]: =bag[2]; writeln('предметов- ',bagaj[1],', общий вес ',bagaj[2]); end. тестовое решение: предметов- 5, общий вес 43600 предметов- 4, общий вес 24540