Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива возрастающую последовательность
209
426
Ответы на вопрос:
Pascalabc: var a: array of real; k,i,n: integer; x: real; begin write('задайте размер массива = '); readln(n); setlength(a,n); for i: =0 to n-1 do begin readln(a[i]); if (i> 0) and (k=0) and (x> a[i]) then k: =1; x: =a[i]; end; if k=1 then writeln('элементы массива не являются возрастающей последовательностью') else writeln('элементы массива являются возрастающей последовательностью'); end.
//Pascal
var
a : array[1..4] of integer;
_max, i : integer;
begin
readln(_max);
for i := 1 to 4 do
begin
readln(a[i]);
if (a[i] > _max) then
_max := a[i];
end;
writeln(_max);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Comalia02.02.2023 04:13
-
elyaivanova8522.08.2022 10:15
-
Pipidastet23.04.2020 17:50
-
Юрий21040407.03.2021 04:37
-
iuliagam07.08.2022 13:37
-
adrian55RUS26.10.2021 12:47
-
мила28530.03.2023 16:19
-
smaiershow08.07.2022 22:35
-
g8954654635424530.10.2020 11:50
-
HELP260607.10.2021 03:03
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.