Объясните, почему он выводит 21, а не 19? Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1]:= 20; Dat[2]:= 27; Dat[3]:= 19; Dat[4]:= 28; Dat[5]:= 26; Dat[6]:= 22; Dat[7]:= 24; Dat[8]:= 28; Dat[9]:= 26; Dat...
Объясните, почему он выводит 21, а не 19?
Var k, m: integer;
Dat: array[1..11] of integer;
Begin
Dat[1]:= 20;
Dat[2]:= 27;
Dat[3]:= 19;
Dat[4]:= 28;
Dat[5]:= 26;
Dat[6]:= 22;
Dat[7]:= 24;
Dat[8]:= 28;
Dat[9]:= 26;
Dat[10]:= 21;
Dat[11]:= 27;
m := 0
for k :=1 to11 do
if Dat[k] < 25 then begin
m := Dat[k];
end;
writeln(m);
End.
Гость
Ответ(ы) на вопрос:
ГостьУ тебя программа выводит нечётное число. Которое меньше того, что стоит в: if Dat[k] < 25 then begin... Если поставить вместо 25 ---> 21, то будет выводить 19
Не нашли ответ?
Похожие вопросы