Найти значение

переменной К после выполнения программы.

Program

Z3_7;

Var A: array[1 ... 6] of integer;

i, k: integer;

begin

for i≔1 to 6 do

A[i]≔ (I*9) mod 7;

k≔0;

for i≔1 to 6 do

if A[A[i]]
write (k) ;

end.

Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Какие описания массивов являются правильными с точки зрения компилятора языка Pascal? var a1: array[-1000 ... 50] of integer; const m1 = 20; m2 = m1*100; var a6: array[m1 ... m2] of - 200 ... 200; var a2: array[200 ...

1. Какие из приведенных описаний являются неправильными и почему? • var a: array [1 ... 20] of integer; • type myarray=array [1 ... 20]; var b: myarray; • var sd: array [1 ... n] of integer; • var dd: array[1] of integer;

Какое число будет напечатано в результате выполнения программы: 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;