Var
i,s,t,koldney:integer;
begin
writeln('введите количество дней');
readln(koldney);
for i:=1 to koldney do
begin
writeln('введите температуру в ', i, ' день');
readln(t);
if t<0 then
s:=s+1;
end;
writeln('количество дней с температурой ниже 0 = ', s);
readln;
end.
Program five;
uses crt;
begin
writeln('-5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8');
end.
это не через цикл if, а просто выписаны числа.
Или тебе именно через цикл if надо?
Var a, b, c, x, y: Integer;
Begin
WriteLn('Введите коэффициенты a, b, c: ');
Read(a, b, c);
WriteLn('Введите координаты точки x, y: ');
Read(x, y);
If y = a * x * x + b * x + c Then WriteLn('Принадлежит')
Else WriteLn('Не принадлежит')
End.