Символьные и строковые данные

[Aidanka]

помогите написать программу . Решить задачи как сформулированные в терминах символов так и в терминах строк.

Даны натуральное число n, символы S1,...,Sn. Подсчитать сколько раз среди данных символов встречаются буква х ,символ * и - .

[ZX Spectrum-128]

1-й вариант

var
  s:array [1..n] of char;
...
  for i:=1 to n do 
    begin
      if s[i]='x' then
        kx:=kx+1;
      // остальные символы также
     end;

2-й вариант - меняется только описание переменной

var
  s:string;

[Aidanka]

Большое спасибо)

[Poma][a]

if s[i]='x' then
        kx:=kx+1;
      // остальные символы также

Тогда уж case

Или вообще

Inc (k1, Ord (s[i] = 'x'));  Inc (k2, Ord (s[i] = '+')); Inc (k3, Ord (s[i] = '-'));

1-й вариант

Боюсь Вы не правы..
Массив у Вас от 1 до N.. N может быть лишь констатой..
А в цикле Вы проверяете до N... 1) Мы можем превысить N 2) Для корректной работы нужно будет заполнить массив нулями 3) Мы будет делать лишнюю работу..

Так что или так :

const
   SIZE = 1000;
s : array [1..SIZE] of Char;

begin
i := 0;
while not EoLn do begin
    Inc (i);
     Read (s[i])
end;

n := i;
<..> 
end.

[ZX Spectrum-128]

Poma][a

Я дал общую схему решения. А там уж как автор решит.