Question

Информатика. Исправление оценки за домашнее задание. Программа на Pascal : Создать массив, состоящий из 4 элементов. Заполнить массив числами: 1 - день вашего рождения 2 - месяц вашего рождения 3 - Первые две цифры года 4 - Последние 2 цифры года. Сложите элементы массива с индексом 3 и 4, умножьте элементы массива с индексом 1 и 2. Можно написать в тетради. ПРОШУ МОЛЮ ПЖ НА КОЛЕНЯХ СТОЮ

Answer 1

Ответ:

var base: array[1..4] of integer;

begin

   base[1] := 10;

   base[2] := 1;

   base[3] := 20;

   base[4] := 02;

   

   writeln(base[3] + base[4]);

   writeln(base[1] * base[2]);

end.

Объяснение:

Answer 2

Конечно, я могу помочь вам исправить код на Pascal для данной задачи. Вот правильный код:

pascalCopy code
program BirthdayArray;

var
  MyArray: array[1..4] of integer;
  Sum, Product: integer;

begin
  { Заполняем массив }
  MyArray[1] := 1;  { День вашего рождения }
  MyArray[2] := 2;  { Месяц вашего рождения }
  MyArray[3] := 19; { Первые две цифры года }
  MyArray[4] := 90; { Последние две цифры года }

  { Считаем сумму и произведение }
  Sum := MyArray[3] + MyArray[4];
  Product := MyArray[1] * MyArray[2];

  { Выводим результаты на экран }
  writeln('Сумма последних двух цифр года: ', Sum);
  writeln('Произведение дня и месяца рождения: ', Product);
end.

Этот код создает массив MyArray из 4 элементов, заполняет его указанными значениями и затем выполняет операции, описанные в вашем задании. Результаты выводятся на экран. Пожалуйста, проверьте код и убедитесь, что он работает правильно для вас.