Вариант 3.

var ht: array [2..22] of integer;

имя сколько элементов в массиве? тип данных в

числовой одномерный массив а заполнен последовательно числами
324, 38, 523, 215,78,54. укажите: значение элемента а[6].
индекс наибольшего элемента

опишите на паскале целочисленный массив из 25элементов.



задайте значения элементов массива случайным образом из промежутка (-50; 50)



элементы массива по формуле for k: =1 to 10 do a[k]: =4+k*3;
запишите первые 5 элементов



вариант 4.

var mas: array [4..19] of real;

имя сколько элементов в массиве? тип данных в

числовой одномерный массив a заполнен последовательно числами 4, 67, 87, 12, 32, 77

укажите: значение элемента а[5]. индекс наибольшего элемента

опишите на паскале целочисленный массив из 15 элементов.



задайте значения элементов массива случайным образом из промежутка (-100; 100)



элементы массива по формуле for t: =1 to 10 do a[t]: =t*3+6;

запишите первые 5 элементов массива

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

по центру каждой стены  по  стулу  а также в каждый угол по стулу