Задача 2 Урок 15
Primary tabs
Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
type myArr = array[1..7] of integer; var a: myArr; i : integer; begin for i:=low(a) to high(a) do begin writeln('vvedite element massiva nomer ', i, ':'); readln(a[i]); end; writeln('elementi vvedennogo vami massiva:'); for i:=low(a) to high(a) do writeln(a[i], ' <-- a[', i, '] '); readln(); end.
Вывод консоли:
vvedite element massiva nomer 1: 2 vvedite element massiva nomer 2: 5 vvedite element massiva nomer 3: 3 vvedite element massiva nomer 4: 8 vvedite element massiva nomer 5: 2 vvedite element massiva nomer 6: 85 vvedite element massiva nomer 7: 2 elementi vvedennogo vami massiva: 2 <-- a[1] 5 <-- a[2] 3 <-- a[3] 8 <-- a[4] 2 <-- a[5] 85 <-- a[6] 2 <-- a[7]
- Log in to post comments
- 215 reads