instajoha2p09254

28.07.2020 09:48

Информатика

Есть ответ 👍

Объясните как решать 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.