Решение задачи №1 из главы 15

Решение задачи №1 из главы 15

Задайте в коде программы массив из чисел семи чисел:
1 12 45 6 7 18 99

Вывод консоли
1|12|45|6|7|18|99

type  // секция объявления типов
  myArr = array[1..7] of integer; //  массив из 3 элементов символьного типа

var
  a: myArr; // объявляем переменную типа  myArr

begin

   a[1] := 1;
   a[2] := 12;
   a[3] := 45;
   a[4] := 6;
   a[5] := 7;
   a[6] := 18;
   a[7] := 99;

   write(a[1], '|', a[2], '|', a[3],'|', a[4], '|', a[5],'|', a[6], '|', a[7]);
readln();
end.
vedro-compota's picture

выведите значения на экран через обход массива.

_____________
матфак вгу и остальная классика =)

gani84's picture

Вывод консоли
elementi  massiva:
1 <-- a[1]
12 <-- a[2]
45 <-- a[3]
6 <-- a[4]
7 <-- a[5]
18 <-- a[6]
99 <-- a[7]
type  // секция объявления типов
  myArr = array[1..7] of integer; 

var
  a: myArr; // объявляем переменную типа  myArr
  i:integer;
begin
   a[1] := 1;
   a[2] := 12;
   a[3] := 45;
   a[4] := 6;
   a[5] := 7;
   a[6] := 18;
   a[7] := 99;
   writeln('elementi  massiva:');
   for i:=low(a) to high(a) do // обходим массив
        writeln(a[i], ' <-- a[', i, '] ');
   readln();
end. 
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)