Задача 2 урок 15
Primary tabs
Задача 2 урок 15
Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
type myArr = array[1..7] of integer; var a: myArr; // объявляем переменную типа 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 massiva:'); for i:=low(a) to high(a) do writeln(i, ' =', a[i]); readln(); end.
- Log in to post comments
- 431 reads