Заполнить линейный массив по формуле: c[i]=6*x-i/7-6;

program raf105;

var c: array[1..999] of real;

i,x,n: integer;

begin

write('введите количество элементов массива: ');

readln(n);

write('введите значение x: ');

readln(x);

writeln('элементы массива: ');

for i: =1 to n do

begin

  c[i]: = 6*x-i/7-6;

  writeln(c[i]);

end;

end.

     

язык программирования pascalabc

Основные элементы окна текстового процессора — это: — строка заголовка; — строка меню; — панель инструментов; — градуированная линейка; — рабочая область; — строка состояния.

Объяснение:

Укажите общие элементы окна текстового процессора и окна графического  редактора : 1) строка заголовка – содержит имя документа, имя программы и кнопки управления; 2) строка меню – содержит имена групп команд, объединенных по функциональному признаку; 3) панель инструментов; 4) градуированная линейка – определяет границы документа; 5) рабочая область – основная часть окна, предназначенная для создания документа и работы с ним; 6) строка состояния – справочная информация.

В этой задаче нам нужно подсчитывать количество чисел и искать максимум среди подсчитанных количеств. Алгоритм будет такой: если очередное число равно `2`, то увеличиваем счётчик количества, если же нет, то это означает, что подпоследовательность закончилась, и надо проверять, не превзошли ли мы максимум, а потом текущий счётчик сбрасывать в `0`. И ещё нужно сделать такую проверку после цикла, поскольку последовательность может закончиться на `2`.

var a,k,max:integer;

     begin

      max:=0;

      k:=0;

      read(a);

      while a <> 0 do begin

       if a = 2

       then k := k + 1

  else begin

   if k > max then max := k;

   k := 0

  end;

 read(a);

 end;

 if k > max then max := k;

 writeln(max)

     end.