Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А"

[Stilet]

Да куда уж проще, можно применить все тот же TStringList, который сделает "массив" слов из строки, и в цикле уж проходить и анализить эти слова:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var s:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var i,c:integer;
begin
 s.DelimitedText:=Edit1.Text;
 c:=0;
 //********* FOR ******************
 for i := 0 to s.Count-1  do
 begin
  if pos('a',s[i])<>0 then inc(c);
 end;
 caption:=inttostr(c);
 //******* END FOR ****************{}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=TStringList.Create;
s.Delimiter:=' ';
end;

end.

[puporev]

Поскольку в задании написано буква А и не уточнено обязательно прописная или имеются в виду все буквы а, и не известоно на каком языке, то можно написать
if (pos('a',s[i])<>0)or (pos('A',s[i])<>0)
or(pos('а',s[i])<>0)or (pos('А',s[i])<>0)then inc(c);
где в одной строчке русская раскладка, а в другой-английская.

[Mashaa]

а еси мы не проходили объекты

[dikeyd]

Помогите если можете пожалуйста решить туже задачу, только в Basik.
Также если можете
1 Дана последовательность чисел а1, а2, ....аn. Указать наименьшую длину отрезка числовой оси, содержащего все эти числа
2 В массиве записаны целые числа. Вычислить количество нечетных элементов побочной диагонали массива