Question

Массив А состоит из 7 элементов. Заполнить массив первым способом и вывести этот массив в строку (Язык паскаль)

Answer 1

var

 a:array [0..6] of integer;

 i:integer;

begin

 for i:=0 to 6 do begin

   write('['+inttostr(i)+']=');

   readln(a[i]);

 end;  

 for i:=0 to 6 do

   write(a[i] + ' ');

end.

//  если размерность массива не определена,

//  это так для общего развития

var

 a:array of integer;

 i, k:integer;

begin

 writeln('Введите размерность массива');

 read(k);

 SetLength(a, k);

 writeln();  

 for i:=0 to k-1 do begin

   write('['+inttostr(i)+']=');

   readln(a[i]);

 end;  

 for i:=0 to k-1 do

   write(a[i] + ' ');

end.

Answer 2

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

pascalCopy code
program FillArray;
var
  A: array[1..7] of Integer;
  i: Integer;
  str: string;
begin
  // Заполняем массив A
  for i := 1 to 7 do
    A[i] := i;

  // Формируем строку со значениями массива
  str := '';
  for i := 1 to 7 do
    str := str + IntToStr(A[i]) + ' ';

  // Выводим строку на экран
  WriteLn('Массив A: ', str);
end.

В данном примере массив A заполняется значениями от 1 до 7. Затем значения массива объединяются в строку str, разделенные пробелами. Наконец, строка str выводится на экран.