13. Даны значения переменных х и у: х = 5, y = 10. Спрогнозируйте конечные значения этих переменных после выполнения последо- вательности действий: z = y – 2; у = x; х= Z. Дайте оценку полученных значений переменных x, y, z.
Program array15numbers; var a:array [1..15] of integer; b:array [1..15] of real; i:integer; begin for i:=1 to 15 do begin a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля} writeln(a[i]); {чтобы увидеть созданный массив} end; writeln(); {нужен, чтобы сделать отступ} for i:=1 to 15 do begin if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления} begin b[i]:=a[i]*3; end else begin b[i]:=a[i]/2; end; writeln(b[i]); end; end.
Остались вопросы? - спрашивай в комментах. Нужно более подробное объяснение - пиши в лс vkcom/ilyahard
z=8, y=5, x=8. Вроде так