, ( , ) . :
169.169. .
() . , (). , , . , .
: , 8 21 5 8. :
-8 | -7 | -5 | -4 | -4 | -5 | -4 | ... | -9 | -7 | -4 | -2 | -1 | ||
... |
:
-8 | -7 | -5 | -4 | -4 | -4 | -4 | ... | -4 | -4 | -4 | -2 |
? . , , . 2 , (8) , , 7. . , , . , .
:
program temperatura_max;
uses dos, crt;
var i, maxtemp: integer;
temp: array[1..28] of integer;
begin
clrscr;
for i:= 1 to 28 do
begin
write(i ,i,- : );
readln(temp[i]);
end;
maxtemp:= temp[1];
for i:= 2 to 28 do
if temp[i] > maxtemp then maxtemp:= temp[i];
writeln( ,maxtemp);
readln
end.
170.170. .
, .
171.171. , .
: , , , num_day_max_temp integer . , , . , . , , .
|
|
...
maxtemp:= temp[1];
num_day_max_temp:= 1;
for i:= 2 to 28 do
if temp[i] > maxtemp then
begin
maxtemp:= temp[i];
num_day_max_temp:= 1;
end;
...
. .
. .
. , : , . ? , , , . . , , , .
, :
program temperatura_max1;
uses dos, crt;
var i, maxtemp: integer;
temp: array[1..28] of integer;
begin
clrscr;
for i:= 1 to 28 do
begin
write(i ,i,- : );
readln(temp[i]);
end;
maxtemp:= temp[1];
for i:= 2 to 28 do
if temp[i] > maxtemp then maxtemp:= temp[i];
writeln( ,maxtemp);
write( : );
for i:= 1 to 28 do
if temp[i] = maxtemp then write(temp[i], );
readln
end.
, . , ? num_day_max_temp , . , , , 0, . .