Вариант 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 prog;
uses crt;
var a,b,c,x,y:real;

begin
clrscr;

write('Ребро параллелепипеда а = ');
readln(a);
write('Ребро параллелепипеда b = ');
readln(b);
write('Ребро параллелепипеда c = ');
readln(c);

writeln;
write('Сторона отверстия х = ');
readln(x);
write('Сторона отверстия y = ');
readln(y);

writeln;
if ((a<x) and (b<y)) or
((a<x) and (c<y)) or
((c<x) and (b<y)) or
((b<x) and (a<y)) or
((c<x) and (a<y)) or
((b<x) and (c<y)) then
writeln('Может пройти') else  writeln('Не может пройти');

end.

Program primer;
var
  f: text;
  i, j, h: byte;
  l, k: smallint;
  s, s1, s2, m: string;
begin
assign(f, 'F.txt'); {путь к файлу}
  reset(f);
   read(f, s);
  s := ' ' + s + ' ';
  close(f);
  writeln('укажите 2 слова через строчку');
  readln(s1);
  readln(s2);
  i := 0; j := 0; m := s; k := 1;
  while k <> 0 do
   begin
    k := pos(' ' + s1 + ' ', m);
    if (k <> 0) then inc(i);
    delete(m, 1, k + length(s1));
  end;
  k := 1; m := s;
  while k <> 0 do
   begin
    k := pos(' ' + s2 + ' ', m);
    if (k <> 0) then inc(j);
    delete(m, 1, k + length(s2));
  end;
  m := s; k := 1; h:=0;
  while (k <> 0) or (l <> 0) do
   begin 
    k := pos(' ' + s1 + ' ' + s2 + ' ', m);
    l := pos(' ' + s2 + ' ' + s1 + ' ', m);
    if (k <> 0) or (l <> 0) then inc(h);
     delete(m, 1, k + l + length(s2 + s1) + 1);
   end;
 writeln('количество слов соответствующих первому = ', i);
 writeln('количество слов соответствующих второму = ', j);   writeln('непосредственно друг за другом   х', h);
end.