Задание 10

   Ответом на задание 10 является число, последовательность букв или цифр. Ответ следует записывать без пробелов и каких-либо дополнительных символов. 

Задание 10

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.


Алгоритмический языкБейсикПаскаль
алг  
нач  
целтаб Dat[1:10] 
цел к, m 
Dat[1] := 12 
Dat[2] := 15 
Dat[3] := 17 
Dat[4] := 15 
Dat[5] := 14 
Dat[6] := 12 
Dat[7] := 10 
Dat[8] := 13 
Dat[9] := 14 
Dat[10] := 15 
m := 20  
нц для к от 1 до 10
если Dat[k] < m то
m : = Dat[k] 
все  
КЦ  
вывод m  
КОН
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER 
Dat(1) = 12: Dat(2) = 15
Dat(3) = 17: Dat(4) = 15
Dat(5) = 14: Dat(6) = 12
Dat(7) = 10: Dat(8) = 13
Dat(9) = 14: Dat(10) = 15
m = 20  
FOR k := 1 TO 10 
IF Dat(k) < m THEN 
m = Dat[k]  
ENDIF  
NEXT k  
PRINT m
Var k, m: integer; 
Dat: array[1...10] of integer;
Begin   
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 20;   
for k := 1 to 10 do 
if Dat[k] < m then 
begin  
m := Dat[k] 
end;   
writeln(m);  
End.

Пояснение.

Программа пред­на­зна­че­на для на­хож­де­ния ми­ни­маль­но­го зна­че­ния сред­не­су­точ­ной температуры. Про­ана­ли­зи­ро­вав вход­ные данные, при­хо­дим к выводу, что ответ 10.

Правильный ответ: 10.

Пройди тренировку задания 10: Тест по заданию 10.
Подписаться на: Сообщения (Atom)