Регистрация
tyrda45
30.05.2021 01:11
Информатика
Есть ответ 👍

Втаблице 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.

263
266
Посмотреть ответы 2

Ответы на вопрос:

golovko2006ovr6m1
golovko2006ovr6m1
4,4(82 оценок)
Скомпилировано в программе pascal abc.net 5 =======================================
Ulugbek9i
Ulugbek9i
4,6(15 оценок)
Второе : var a,b,y: integer; begin read(a,b,y); if ((y< a) and (y> b)) or ((y> a) and (y< b)) then writeln('принадлежит') else writeln('не принадлежит'); end.

Популярно: Информатика