Сформулируйте задачу, решаемую в предложенном фрагменте программы, где a [i] - элемент массива размерности N. Определите значение переменных Q и K, если N=5 А (4; - 1; 5; 7; 2)

q:=a[1]; k:=1;

for i:=2 to n do

if a[i]>q

then begin

q:=a[I];

k:=i

end.

Сформулируйте задачу, решаемую в предложенном фрагменте программы, где a[i] - элемент массива размерности N.

1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.

Procedure F (n: integer) ; begin if n < 6 then begin write (n) ; F (n * 2) ; F (n + 2) end; if n < 5 then begin write (n + 1) ; F (n + 2) end end; В паскале пишет (встречен конец файла а ожидалось begin) Как пофиксить?

6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.

Приведенный фрагмент программы ... Паскаль //i, n, flag - переменные целого типа flag : = 1; if n > 2 then begin flag : = 0; for i : = 2 to n - 1 do begin if n mod i = 0 then begin flag : = 1; break end; end; end; writeln ((n = 2) OR (flag = 0)) ;