Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). найти количество слов, которые содержат хотя бы одну букву «а».
var s : string; k,i,l : integer; p : boolean; begin readln (s); l := Length(s); p := true; for i := 1 to l do begin if (s[i] = 'А') and (p) then begin k := k +1; p := false; end; if s[i] = ' ' then p := true; end; writeln (k); end.
{Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу, воспользовавшись массивом y как вс а) все отрицательные элементы массива x перенесите в его начало, а все остальные — в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов; б) элементы массива х циклически сдвиньте на k позиций влево.} Var x, y: array [1..70] of real; k: 1..69; n, i,j, k1: integer; c :real; begin writeln('введите кол-во элементов массива'); readln(n); writeln('введите элементы массива'); for i:=1 to n do read(x[i]); k1:=0; {все отрицательные элементы массива x перенесите в начало массива y} for i:=1 to n do if x[i]<0 then begin k1:=k1+1; y[k1]:=x[i] end; {все не отрицательные элементы массива x переносим в конец массива y} for i:=1 to n do if x[i]>=0 then begin k1:=k1+1; y[k1]:=x[i] end;
for i:=1 to n do x[i]:=y[i]; for i:=1 to n do write(x[i]:8:2);
{б) элементы массива х циклически сдвиньте на k позиций влево.} writeln('введите k'); readln(k); for i:=1 to n do y[i]:=x[i]; for i:=1 to n-k do x[i]:=x[i+k]; for i:=1 to k do x[n-k+i]:=y[i]; for i:=1 to n do write(x[i]:8:2); end.
Const nn = 50; var a,b,nb:array[1..nn] of integer; i,n,j: integer; begin Write('Введите количество элементов в массиве (n<51): '); Read(n); Writeln('Вводите элементы массива'); j:=0; for i:=1 to n do begin Read(a[i]); if a[i]<0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end end; if j>0 then begin Write('Отрицательные элементы: '); for i:=1 to j do Write(b[i],' '); Writeln; Write('Индексы отрицательных элементов в массиве:'); for i:=1 to j do Write(nb[i]:3); Writeln end end.
Результаты тестирования: Введите количество элементов в массиве (n<51): 9 Вводите элементы массива 3 5 -2 3 -2 0 -6 -8 1 Отрицательные элементы: -2 -2 -6 -8 Индексы отрицательных элементов в массиве: 3 5 7 8
Введите количество элементов в массиве (n<51): 8 Вводите элементы массива -1 -2 -3 -4 0 -1 2 3 Отрицательные элементы: -1 -2 -3 -4 -1 Индексы отрицательных элементов в массиве: 1 2 3 4 6
var
s : string;
k,i,l : integer;
p : boolean;
begin
readln (s);
l := Length(s);
p := true;
for i := 1 to l do
begin
if (s[i] = 'А') and (p) then
begin
k := k +1;
p := false;
end;
if s[i] = ' ' then
p := true;
end;
writeln (k);
end.