Вопрос по информатике:
Решите что сможите, не обязательно все. Нужно написать программы для Паскаля, используя МАССИВ.
1) Дана последовательность действительных чисел a1, a2,...,a n. Выяснить,будет ли она возрастающей.
2)Даны действительные числа a1,a2,...a n. Поменять местами первый наибольший элемент с последним наименьшим элементом.
3) Дан массив X[N] целых чисел. Не используя других массивов, переставить его элементы в обратном порядке.
4)Задана последовательность из N целых чисел. Вычислить сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.03.2018 12:56
- Информатика
- remove_red_eye 19469
- thumb_up 83
Ответы и объяснения 2
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.
- 22.03.2018 03:31
- thumb_up 37
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.
- 23.03.2018 10:59
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.