Question

Опишите массивы (Pascal ABC), если: а) элементы массива содержат стоимость 15 блюд в школьной столовой (в рублях и копейках);

б) элементы массива содержат количество мячей, забитых на чемпионате мира 16 игроками футбольной команды;

в) в поезде вагоны с номерами с 6 по 14 - грузовые. Элементы массива содержат вес груза в грузовых вагонах поезда в тоннах.

Answer 1

а) Массив элементов, содержащих стоимость 15 блюд в школьной столовой, можно описать следующим образом в Pascal ABC:

var
dishes: array[1..15] of real; // Определяем массив с элементами стоимости блюд в школьной столовой

Например, для заполнения массива значениями, можно использовать следующий код:

for i := 1 to 15 do
begin
write('Введите стоимость блюда ', i, ': ');
readln(dishes[i]);
end;

б) Массив элементов, содержащих количество мячей, забитых на чемпионате мира 16 игроками футбольной команды, можно описать следующим образом в Pascal ABC:

var
goals: array[1..16] of integer; // Определяем массив с элементами количества забитых мячей

Например, для заполнения массива значениями, можно использовать следующий код:

for i := 1 to 16 do
begin
write('Введите количество забитых мячей игроком ', i, ': ');
readln(goals[i]);
end;

в) Массив элементов, содержащих вес груза в грузовых вагонах поезда в тоннах, можно описать следующим образом в Pascal ABC:

var
cargoWeights: array[6..14] of real; // Определяем массив с элементами веса груза

Например, для заполнения массива значениями, можно использовать следующий код:

for i := 6 to 14 do
begin
write('Введите вес груза в грузовом вагоне ', i, ': ');
readln(cargoWeights[i]);
end;

Обратите внимание, что в данном случае используется массив с указанием диапазона индексов (от 6 до 14), чтобы соответствовать номерам грузовых вагонов.