Question

что будет на экране после выполнения следующего фрагмента программы, если массив содержит следующие значения (15,3,4,7,12):
K:=0
For I:=1 to 5 do
If (a[i] mid 2)<>0 then begin k:=k+1; b[k]:=a[i]; end;
For I:= 1 to k do
Write (b[i],'')

Answer 1

В массив b заносятся нечетные числа из массива а. Значит, будет напечатано:
15,3,7