Слово росинка
..............
Координата точки х = 4, у = 0 m = 5, где m размер изображения
var
a: integer;
begin
writeln('Введите день недели:'); readln(a);
case a of
1 : writeln('Понедельник');
2 : writeln('Вторник');
3 : writeln('Среда');
4 : writeln('Четверг');
5 : writeln('Пятница');
6 : writeln('Суббота');
7 : writeln('Воскресенье');
else writeln('В неделе только 7 дней.');
end;
end.
<span>массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99
первый цикл
</span><span>i := 0; j := 9;
while A[i] < 10 do
i := i + 1;
считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 </span>не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4
второй цикл
5, 28, 8, 14, 9, 23, 6, 18, 51, 99<span>
while A[j] > 10 do
j := j - 1;
t := A[i] - A[j];
смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176</span>