Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Решите что сможите, не обязательно все. Нужно написать программы для Паскаля, используя МАССИВ.

1) Дана последовательность действительных чисел a1, a2,...,a n. Выяснить,будет ли она возрастающей.

2)Даны действительные числа a1,a2,...a n. Поменять местами первый наибольший элемент с последним наименьшим элементом.

3) Дан массив X[N] целых чисел. Не используя других массивов, переставить его элементы в обратном порядке.

4)Задана последовательность из N целых чисел. Вычислить сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.

Ответ оставил Гость

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.