Что будет напечатано после выполнения следующей команды:

const A: array [1 ... 6] of integer = (12,-15,14,3,9,10) ;

for i:=2 to 5 do

begin

if A[i] mod 2=0 then write (A[i]:3) ;

end.

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;

Const n=5; var a:array[1 ... n] of integer; b:array[1 ... 10000] of integer; i, j:integer; begin for i:=1 to n do begin a[i]:=random (100) ; write (a[i]:4) ; end; for i:=1 to n do begin if (i mod 2=1) and (i div i=1) and (i div 1=i) then b[j]:=i;

Program z17; const n = 60; var c: array [1 ... n] of integer; k, i:integer; Begin randomize; k:=0; for i:=1 to n do c: = random (21) - 10; if i mod 4 = 0 then if c=0 then k:=k+c[i]; end; end; end; writeln (k) ; end.

Ошибка времени выполнения: Индекс находился вне границ массива ... чтто не так? const n=30; var i, j, p, q:integer; c:array[1 ... n, 1 ... n+1] of integer; a:array[1 ... n+1] of integer; b:array[1 ...