С8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. известно что в течении этого времени температура понижалась . напишите программу, определяющую , в котором часу была впервые отмечена отрицательная температура .

Program temp; uses crt; var tem: array [8..20] of real; min: real; i: integer; begin for i: =8 to 20 do begin clrscr; writeln('vvedite temperaturu dlya ',i,' chasa zamera'); read(tem[i]); end; for i: =8 to 20 do if tem[i]< 0 then min: =i; writeln('vpervue otricatelnaya temperatura otmechena v ',min); readln; end.

var

  i, n: integer;

  i1, i2, i3: 1..9;   //цифры трехзначного числа

 

begin

  for i: = 100 to 999 do   {перебираем все трехзначные числа и вычисляем цифры числа}

  begin

    i1: = i div 100;

    i2: = (i mod 100) div 10;

    i3: = i mod 10;  

    if (i3 > i2) and (i2 > i1) then inc(n);   {если 3 цифра больше 2-й и 2-я больше 1-ой, то увеличиваем счетчик на 1}

  end;

  writeln('количество трехзначных чисел, у которых цифры строго по возрастанию равно:   ', n);

end.

если все правильно, отметь решение как лучшее)

  program pr;

var a: array[100..999] of integer;

q,w,v,c,i,d: integer;

 

begin

n: =-1;

c: =1;

for i: =1 to 899 do begin

a[i]: =99+c;

c: =c+1;

q: =a[i] mod 10;

a[i]: =a[i] div 10;

w: =a[i] mod 10;

a[i]: =a[i] div 10;

if (q> w) and (q> a[i]) and (w> a[i]) then v: =v+1;

end;

writeln('всего этих числел=',v);

end.