В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
|
Алгоритмический язык
|
Бейсик
|
Паскаль
|
|
алг
нач
целтаб Dat[1:10] цел к, ш, num Dat[1]:= 7; Dat[2]:= -8 Dat[3]:= 3; Dat[4]:= 6 Dat[5] := -4; Dat [6] := 3 Dat[7]:= 5; Dat[8]:= -5 Dat[9]:= 7; Dat[10]:= 1 num := 1; m := Dat [ 1] нц для к от 2 до 10 если Dat[к] * m < 0 то m := Dat[к]; num := к все
КЦ
вывод num
КОН
|
DIM Dat(10) AS INTEGER Dat (1) = 7: Dat(2) = -8 Dat (3) = 3: Dat (4) = 6 Dat (5) = -4: Dat(6) = 3 Dat (7) = 5: Dat(8) = -5 Dat(9) = 7: Dat(10) = 1 num = 1: m = Dat(1)
FOR k = 2 TO 10
IF Dat(k) * m < 0 THEN m = Dat(k) num = k END IF NEXT k PRINT num END
|
var k, m, num: integer;
Cat: array[1..10] of integer; begin
Dat[1]:= 7; Dat[2]:= -8; Dat[3]:= 3; Dat[4]:= 6; Dat[5]:= -4; Dat[6]:= 3; Dat[7]:= 5; Dat[8]:= -5; Dat[9]:= 7; Dat[10]:= 1; num:= 1; m:= Dat[1]; for k:= 2 to 10 do begin if Dat[k] * m < 0 then begin
m := Dat [k]; num := k end end;
write(num); end.
|
Ответ:
|