Question

Описать одномерный массив Y из 10 целых чисел. Задать значения элементов в программе. Вывести элементы массива в столбик с пояснениями

Answer 1

Ответ:

var i:integer;

y:array [1..10] of integer=(10,9,8,7,6,5,4,3,2,1);

begin

for i:=1 to 10 do

writeln (i:2,' элемент массива равен ',y[i]);

end.

или

var i:integer;

y:array [1..10] of integer;

begin

for i:=1 to 10 do

begin

y[i]:=random(10);

writeln (i:2,' элемент массива равен ',y[i])

end

end.