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

20 Январь 2012



с 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.









Информатика

Комментарии закрыты.