Program n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
Max = A
if B > Max then Max = B
if C > Max then Max = C
Или по-другому
if (A>B) and (A>C) then Max = A
if (B>A) and (B>C) then Max = B
if (C>B) and (C>A) then Max = C
<span>1.графический - с помощью спец. рисунков или значков;2.числовой - с помощью чисел;3.символьный - с помощью символов того же алфавита, что и исходный текст.</span>
#include <iostream>
using namespace std;
int main()
{
int a, b, s = 0;
cin >> a >> b;
for (int i = a; i <= b; i++)
s += i;
cout << s << endl;
system("pause");
return 0;
}
В цикле for переменная i принимает все значения от A до B включительно, и эти значения суммируются в переменную S.
var x,y:real;
begin
readln(x);
if x<=3 then y:=-5
else if x>3 then y:=2*x-4;
write('y = ',y);
readln;
end.