1. определите, сколько элементов массива a равны заданному значению x. 2. вычислить произведение всех элементов массива a, которые делятся на 3. 3. определите в массиве a номер первого элемента, равного x.

Const k = 13; var a: array[1..k] of integer; i,n,x: integer; begin write('x = '); readln(x); write('исходный массив: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ');       end; n: =0; for i: = 1 to k do       if a[i]=x then n: =n+1; writeln; writeln(n,' - кол-во элементов, равных ',x); end. const k = 13; var a: array[1..k] of integer; i: integer; p: real; begin p: =1; write('исходный массив: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i] mod 3 = 0 then p: =p*a[i]       end; writeln; writeln('произведение элементов,кратных трём: ',p) end. const k = 13; var a: array[1..k] of integer; i,x: integer; begin write('x = '); readln(x); write('а: '); for i: = 1 to k do       begin       a[i]: =random(21)-10;       write(a[i],' ');       end; writeln; i: =0; repeat i: =i+1; until (a[i]=x)or(i=k); if a[i]=x then writeln(i) else writeln('таких элементов нет') end.

Длина, высота, ширина

Подробнее нужно описать?