Заполните массив из 10 элементов, в котором каждый элемент будет равен введенному ?
Заполните массив из 10 элементов, в котором каждый элемент будет равен введенному ??ислу с клавиатуры.
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
readln(x);
for i:=1 to n do
a[1]:= ;
for i:=1 to n do
write (a[i]:6);
end.
Ответ(ы) на вопрос:
Гость
Const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
readln(x);
for i:=1 to n do
a[i]:=x;
for i:=1 to n do
write (a[i]:6);
end.
Не нашли ответ?
Похожие вопросы