Question

Помогите написать программу на паскале абс тема "создание одномерных массивов" Создать и вывести на экран 2 одномерных массива целых чисел размерности N из текстового файла. Найти и вывести произведение всех четных элементов.

Answer 1

//PascalABC.NET 3.0 сборка 1139 (10.01.2016)
const
    n = 10;

begin
    var a := ArrRandom(n, 1, 100);
    var b := ArrRandom(n, 1, 100);
    var s := a.Union(b).Where(x -> x mod 2 = 0).Aggregate((S, x) -> S * x);
    Print(S);
end.

ввод из текстового файла писать влом, рандом быстрее

Answer 2

Создание одномерных массивов в Pascal

Для создания и вывода на экран двух одномерных массивов целых чисел размерности N из текстового файла в Pascal, вам потребуется использовать операции чтения из файла и работы с массивами. Затем вы сможете найти и вывести произведение всех четных элементов.

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

program OneDimensionalArrays;

const
  N = 10; // размерность массива

var
  fileInput: TextFile; // переменная для работы с файлом
  array1, array2: array[1..N] of Integer; // два одномерных массива
  i: Integer; // счетчик для цикла
  product: Integer; // переменная для хранения произведения

begin
  // Открываем файл для чтения
  AssignFile(fileInput, 'input.txt');
  Reset(fileInput);

// Читаем данные из файла и заполняем массивы
  for i := 1 to N do
  begin
    Read(fileInput, array1[i]);
    Read(fileInput, array2[i]);
  end;

// Закрываем файл
  CloseFile(fileInput);

// Выводим массивы на экран
  Writeln('Массив 1:');
  for i := 1 to N do
    Write(array1[i], ' ');

Writeln;
  Writeln('Массив 2:');
  for i := 1 to N do
    Write(array2[i], ' ');

// Находим и выводим произведение всех четных элементов
  product := 1;
  for i := 1 to N do
  begin
    if (array1[i] mod 2 = 0) then
      product := product * array1[i];
    if (array2[i] mod 2 = 0) then
      product := product * array2[i];
  end;

Writeln;
  Writeln('Произведение всех четных элементов: ', product);

end.

В этой программе мы используем переменную `fileInput` для работы с текстовым файлом, содержащим данные для массивов. Мы открываем файл с помощью `AssignFile` и `Reset`, а затем считываем данные из файла и заполняем массивы `array1` и `array2` в цикле.

Затем мы выводим массивы на экран с помощью циклов `for` и выводим произведение всех четных элементов, проверяя каждый элемент на четность с помощью операции модуля (`mod`).

Обратите внимание, что в этом примере размерность массива `N` установлена равной 10. Вы можете изменить это значение на нужное вам.

Примечание: Приведенный выше код является примером и может потребовать некоторых изменений в зависимости от вашей конкретной ситуации. Убедитесь, что файл `input.txt` существует и содержит правильные данные для массивов.

Надеюсь, это поможет вам создать программу на Pascal для создания и вывода на экран одномерных массивов целых чисел из текстового файла, а также для нахождения и вывода произведения всех четных элементов. Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их!