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. Спасибо.

1
x - умножение.
Хорошо, а z?
Ввести с клавиатуры?
z - переменная.
Хотя даже неважно, всё равно везде по любому нули будут.

Ответы и объяснения

Лучший Ответ!
2014-02-23T11:20:09+04:00
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.
Благодарю.
Да не за что.
Может быть, у вас еще найдется время?
Давайте.