1) Заполните все элементы массива значением X введённым с клавиатуры.
2)Заполните массив первыми N натуральными числами,начиная с X (значение Х введите с клавиатуры)
2)Заполните массив первыми N натуральными числами,начиная с X (значение Х введите с клавиатуры)
More Questions From This User See All
Answers & Comments
1) var a:array[1..10] of integer
x, i:integer;
begin
writeln('Vvedite chislo X');
readln(x);
for i:=1 to 10 do
begin
a[i]:=x;
writeln(a[i]), ' ');
end;
readln();
end.
2) var a:array[1..10] of integer;
n,i, x:integer;
begin
writeln('Vvedite x');
readln(x);
n:=0
for i:=1 to 10 do
begin
a[i]:=x+1;
write(a[i], ' ');
end;
readln()
end.
1
2 2 2 2 2 2 2 2 2 2