В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.
const n=15;
var a:array[1..n] of real;
i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do begin
a[i]:=-i+random()+20;
write(a[i]:5:2,' ');
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i+1]>=a[i] then b:=false;
if b
then
begin
writeln('Последовательность убывающая');
writeln('p = ',a[n]*a[n div 2+1]:5:2);
end
else writeln('Последовательность не убывающая')
end.
Пример:
19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19 9.66 8.35 7.37 6.55 5.20
Последовательность убывающая
p = 66.86
Program n_1;
var x, n, s: integer;
begin
x:=-1;
s:=0;
read(x);
if x=0 then writeln('0 0')
else begin
n:=0;
while x<>0 do begin
n:=n+1;
if(x>0) and (x<=22) and (x mod 2 = 0) then s:=s+x;
read(x);
end;
writeln(n, ' ', s);
end
end.
Биология: клетка- ткань-орган-организм, география: улица-город-область-страна, история: год- век-эпоха.
Логическая величина может принимать 2 значения - Истина и ложь.(0 или 1).
обычно они являются какими то переменными - А, B, C...
и с ними можно производить различные логические операции, например конъюнкция, дизъюнкция, ипликация, инверсия...