Задача 2 урок 15
Primary tabs
Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
program U15Z2; var m: array[1..7] of integer; procedure p1(var m: array of integer); var i: integer; begin for i:=1 to 7 do begin writeln('vvedite element massiva ', i,': '); readln(m[i]); end; end; procedure p2(var m: array of integer); var j: integer; begin for j:=1 to 7 do writeln(m[j], ' <--m[',j,']'); end; begin p1(m); p2(m); readln(); end.
- Log in to post comments
- 929 reads