ОБЪЯСНИТЕ КАК РЕШАТЬ 10 ЗАДАНИЕ ОГЭ ПО ИНФОРМАТИКЕ
Желательно, чтобы было максимально понятно с:
В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма, написанного на трех алгоритмических языках.
Алгоритмический язык
алг
нач
целтаб Dat[1:10]
цел к, т, пит
Dat[1]:= 7; Dat[2]:= -8
Dat[3]:= 3; Dat[4]:= б
Dat[5]:= -4; Dat[6]:= 3
Dat[ 7 ] : = 5; Dat[8]:= -5
Dat [9] := 7; Dat [10] := 1
num := 1; m := Dat[1]
нц для k от 2 до 10
если Dat[k] * m < 0 то
m := Dat[k]; num := k
все
кц
вывод 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) = I
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;
Dat: 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.