Остро наточенная палочка позволяла регулировать толщину линии.Если вдавливать под углом то будут получатся клинья.
Const n=10;
var a:array[1..n] of real;
i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i]>=a[i+1] then b:=false;
if b
then writeln('Последовательность возрастающая')
else writeln('Последовательность не возрастающая');
end.
Пример:
5.3 1.4 0.2 6.1 5.7 0.8 3.4 6.2 6.2 8.4
Последовательность не возрастающая
Логические данные- это одно из двух значений( истина или ложь).
У, например благодатной почвой для сюжета можно выбрать - Старые сказки на супер-новый лад... Известные герои с неизвестным продолжением... Как вам такое: Буратино исполнилось 35 лет, Мальвина - его жена, у Буратино 5 детей, Карабас Барабас возглавляет мафиозную структуру и так далее... Или рисованный мультик про Чебурашку-каратиста, который работает в сыскном агентстве ...Вариантов много, буду нужен - пишите на ящик.<span>
</span>