Question

В таблице Dat хранятся положительные и отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма. var k,m,num:integer; Dat: array[1..10] of integer; begin dat[1]:=6; dat[2]:=-1; dat[3]:=2; dat[4]:=9; dat[5]:=-4; dat[6]:=3; dat[7]:=9;dat[8]:=-7;dat[9]:=7;dat[10]:=1;num:=1;m:=dat[1]; for k:=2 to 10 do begin if dat[k] < 2*m then begin m:=dat[k]; num:=k end end; write(num); end.

Answer 1

Скомпилировано в программе Pascal ABC.NET
5
=======================================