Question

Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определённых в заданиях 1 и 2.

Answer 1

Таратата
USES crt;
var A: array[1..5] of real;
q: integer;
BEGIN
clrscr;
     for q:=q to 12 do
     begin
          write ( 'A ',1:2, '] = ') ; 
          readln(A[q])
     end;
тратата

Answer 2

Для ввода исходных данных для массивов в Паскале, вы можете использовать следующий код. Допустим, задание 1 требует создать одномерный массив целых чисел, а задание 2 - двумерный массив вещественных чисел. Вот как это может выглядеть:

Для задания 1 (одномерный массив целых чисел):

pascalCopy code
program InputArray;
var
  i, n: integer;
  arr: array of integer;
begin
  Write('Введите размер массива: ');
  ReadLn(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент ', i + 1, ': ');
    ReadLn(arr[i]);
  end;
  
  // Теперь у вас есть заполненный массив arr
  // Можете продолжить работу с этим массивом или вывести его содержимое
end.

Для задания 2 (двумерный массив вещественных чисел):

pascalCopy code
program Input2DArray;
var
  i, j, rows, cols: integer;
  matrix: array of array of real;
begin
  Write('Введите количество строк: ');
  ReadLn(rows);
  Write('Введите количество столбцов: ');
  ReadLn(cols);
  
  SetLength(matrix, rows, cols);
  
  for i := 0 to rows - 1 do
    for j := 0 to cols - 1 do
    begin
      Write('Введите элемент (строка ', i + 1, ', столбец ', j + 1, '): ');
      ReadLn(matrix[i][j]);
    end;
  
  // Теперь у вас есть заполненный двумерный массив matrix
  // Можете продолжить работу с этим массивом или вывести его содержимое
end.

Обратите внимание, что в обоих случаях код предполагает ввод пользователем размерности массива и его элементов. Вы можете доработать этот код в соответствии с требованиями вашей задачи.