1.Дан массив из n элементов, необходимо определить каким по номеру является элемент со значением 8, вывести индекс данного элемента. Скопировать массив в переменной Masse, вывести оба массива на печать. 2. Дан массив из n элементов. Необходимо поменять элементы местами, вывести их на печать. Отсортируйте массив в порядке возрастания–вывести на печать, убывания –вывести на печать.
3. Дан массив из n элементов. Ввести в него элемент "свет", вставить на 4-ую позицию элемент "солнце". Найти сколько элементов в массиве после элемента "солнце", вывести массив на печать.
(решение на питон, можно в правильной последовательности, как надо записывать в тетрадь, не в одну строку всё :)
program p1;
const n=10;
var a : array[1..n] of integer;
i,b,c:integer;
begin
randomize;
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
for i:=1 to n do {Заполнение исходного массива}
a[i]:=random(21)-10;
for i:=1 to n do {Вывод исходного массива(можно удалить эти строчки)}
write(a[i]:4);
c:=0; {Инверсия массива}
for i:=1 to 2 do begin
b:=a[i];
a[i]:=a[5-c];
a[5-c]:=b;
c:=c+1;
end;
c:=0;
for i:=6 to 8 do
begin
b:=a[i];
a[i]:=a[10-c];
a[10-c]:=b;
c:=c+1;
end;
writeln;
for i:=1 to n do {Вывод инверсированого массива}
write(a[i]:4);
close(input);
close(output);
end.