Заполните массив из 10 элементов, в котором каждый элемент будет равен введенному числу с...

0 голосов
31 просмотров

Заполните массив из 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.


Информатика (68 баллов) | 31 просмотров
Дан 1 ответ
0 голосов

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.

(2.6k баллов)