Алгоритмы обработки массивов. Символьные строки.

Требуется поменять местами значения элементов массива X[a] и X[b]. Какой оператор нужно добавить вместо многоточия? В ответе не используйте пробелы. p := X[a]; ... X[b] := p;

Задан массив X[1..N]. Какой оператор нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были сдвинуты на один вправо (циклически)? В ответе не используйте пробелы. c:=X[N]; for k:=N downto 2 do begin ... end;X[1]:=c;

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? Вводите ответ без пробелов. M:=1; for k:=2 to N do if X[k]>X[M] then ...

Требуется выделить все отрицательные элементы массива A[1..N] в начало массива B[1..N]. Какой оператор надо вставить в программу вместо многоточия? Вводите ответ без пробелов. c:=1; for k:=1 to N do if A[k]<0 then begin ... c:=c+1 end;

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы в результате в переменную i был записан номер элемента, равного R? Вводите ответ без пробелов. i:=1 while (i<=N) and (...) do i:=i+1;

Задан массив X[1..N]. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? Вводите ответ без пробелов. M:=X[1]; for k:=2 to N do if ... then M:=X[k];

Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы в результате в переменную nR был записан номер элемента, равного R? Вводите ответ без пробелов. nR:= 0; for k:=1 to N do if X[k]=R then begin ... break end;

Задан массив X[1..N]. Что нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были переставлены в обратном порядке? for k:=1 to ... do begin c:=X[k]; X[k]:=X[N+1-k]; X[N+1-k]:=c end;

Что будет выведено на экран после выполнения этой программы? s:='123'; s:=s+s[2]+s+s[3]; writeln (s);

Что будет выведено на экран после выполнения программы? s:='123456789'; s1:='abcdef'; s:=Copy(s,5,2)+'0'+Copy(s1,3,3); writeln (s);

Что будет выведено на экран после окончания работы программы? s:='123456789'; Delete (s, 1, 2); n:=Pos ('6', s); writeln (n);

Отметьте все правильные объявления символьных строк.

Программа должна считать, сколько раз в строке S встречается цифра '0'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов. c:= 0; for k:=1 to Length(S) do begin if S[k]='0' then ... end;

Что будет выведено на экран после выполнения программы? s:='123'; s:=s+'0'+s; s:=s+s; writeln (s);

Сколько единиц будет выведено на экран? s:='123456'; while Length(s)>0 do begin Delete (s, 1, 2); writeln ('1') end;

Какой тип данных используется в языке Паскаль для обозначения символьных строк?

Что будет выведено на экран после выполнения этой программы? s:='123456'; q:='abc'; Delete (s, 2, 3); Insert (s, q, 2); writeln (q);

Что будет выведено на экран после выполнения этой программы? s:='12345'; n:=Length(s)+Length('456'); writeln (n);

Что будет выведено на экран после выполнения этой программы? s:='123456789'; n:=Pos ('456', s); Delete (s, n+2, 3); writeln (s);

Программа должна считать, сколько раз в строке S встречается подстрока '12'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов. c:= 0; repeat ... if p<>0 then begin c:=c+1; Delete (S, 1, p+) end; until p=0;

Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов. Q:='123456789'; S:='1'; for k:=2 to 9 do begin ... end;