for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
Это тактильная информация и, возможно, визуальная
Помогите :
Красная Шапочка часто навещает свою бабушку . Но она очень Боится, что рано или поздно ее бабушку опять навестит волк. Поэтому она решила договориться с Лесничим об охране бабушке. Лесничий согласился охранять бабушку за 10 пирожков. Узнав об этом , волк сказал Красной Шапочке , что ей совершенно незачем тратить пирожки на Лесничего. За половину тех пирожков , которые Красная Шапочка несет,и не больше,чем запросил лесничий , Волк пообещал не трогать ее.Сегодня (29 ноября) в России отмечается день матери . Мама испекла несколько пирожков , и попросила Красную Шапочку отнести их бабушку.Требуется определить, сколько Красная Шапочка сможет донести до бабушки.
Формат входных данных :
Во Входном файле содержится N (1<N<100) - натуральное четное число - количество пирожков,которые испекла мама.
Формат выходных данных:
В единственную строку выходного файла нужно вывести одно число-количество пирожков , которые красная шапочка сможет донести до бабушки.
ВСЕ ЭТО В ПРОГРАММЕ PascalABC.NET