Question

Решите что сможите, не обязательно все. Нужно написать программы для Паскаля, используя МАССИВ. 1) Дана последовательность действительных чисел a1, a2,...,a n. Выяснить,будет ли она возрастающей. 2)Даны действительные числа a1,a2,...a n. Поменять местами первый наибольший элемент с последним наименьшим элементом.3) Дан массив X[N] целых чисел. Не используя других массивов, переставить его элементы в обратном порядке. 4)Задана последовательность из N целых чисел. Вычислить сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.

Answer 1

1)

Program Pr1;
uses crt;
var mas:array[1..10] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
for i:=1 to 10 do read(mas[i]);
for i:=1 to 9 do if mas[i+1]>mas[i] then a:=a+1;
if a=9 then writeln('YES')
else writeln('NO');
end.

Answer 2

4. 

var

ar1 : array [1..10] of integer;
i,s:integer;
begin
S:= 0;
for i := 1 to 10 do
read(ar1[i]);

for i := 1 to 10 do
if ar1[i] = i then
S:=S+ ar1[i];

for i := 1 to 10 do
if ar1[i] = i then
write(ar1[i], ' ');

writeln;
writeln('Summ = ',S);
readln;
end.