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.