Втаблице dat хранятся положительные и отрицательные целые числа. определите, что будет напечатано в - id506542020200414 от Ульяна3330 14.04.2020 06:32

Question

Информатика: Втаблице dat хранятся положительные и отрицательные целые числа. определите, что будет напечатано в результате выполнения следующего алгоритма. 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. решить и объяснить.

Ульяна3330 · Accepted Answer

Объяснение:program XandY;const rndlim=50;var x, y : integer;begin x:=random(rndlim); y:=random(rndlim); Writeln( x= ,x, y= , y); Writeln( x+y = ,x+y); Writeln( x-y = ,x-y); Writeln( x*y = ,x*y); Writeln( x^2 + y^2 = ,sqr(x)+sqr(y));end.Запуск:Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64Copyright (c) 1993-2012 by Florian Klaempfl and othersTarget OS: Linux for x86-64       Compiling main.pas                 Linking a.out                     16 lines compiled, 0.2 secx=27 y=29    ...

MOGZ ответил