1. Дан массив, заполненный случайным образом положительными числами. В массиве 10 элементов. Вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. Вывести получившийся мас...
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)
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.
Не нашли ответ?
Похожие вопросы