1. Дан массив, заполненный случайным образом положительными числами. В массиве 10...

Question

1. Дан массив, заполненный случайным образом положительными числами. В массиве 10 элементов. Вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. Вывести получившийся массив на экран.

2. В программе описан одномерный целочисленный массив А с индексами от 0 до 15. Чему будут равны элементы этого массива после выполнения фрагмента программы?
For i:=0 to 15 do A[i]:=i x z;
For i:=1 to 15 do A[i]:=A[i-1];

Оба задания требуется выполнить в программе Pascal. Спасибо.

Comments

For i:=0 to 15 do A[i]:=i x z; к чему тут x z?

---

x - умножение.

---

Хорошо, а z?

---

Ввести с клавиатуры?

---

z - переменная.

---

Хотя даже неважно, всё равно везде по любому нули будут.

Answer 1

1)
uses crt;
const n=11;
var i:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n-1 do
begin
a[i]:=random(99);
write(a[i],' ');
end;
writeln();
for i:=n downto 8 do
a[i]:=a[i-1];
a[7]:=0;
for i:=1 to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
write(a[i],' ');
end.
2)
uses crt;
var i,z:integer;
A:array[0..15] of integer;
begin
read(z);
for i:=0 to 15 do 
A[i]:=i*z;
for i:=1 to 15 do 
A[i]:=A[i-1];
for i:=0 to 15 do
write(A[i],' ');
end.

Comments

Благодарю.

---

Да не за что.

---

Может быть, у вас еще найдется время?

---

Давайте.