помогите с массивами пожалуйста

[Конь Антон]

program Kr1;
var i,n,m:integer;a:char;
Mas:array[1..256] of integer;
begin
write('вводим n');
readln(n);
for i:=1 to n do
   begin
   write('введите mas[i]');
   readln(mas[i]);
   end;
m:=0;
for i:=1 to n do
begin
if Mas[i]=1 then a:='*';
if Mas[i]=2 then a:='*';
if Mas[i]=3 then a:='*';
if Mas[i]=4 then a:='*';
if Mas[i]=5 then a:='*';
m:=m+1;
inc(i);
end;
writeln(m);
End.

Вот так вот как то примерно получается, а что не так с этой прогой хз, говорят что то не так или добавить и удалить что то, помогите

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Stilet]

что не так с этой прогой хз

Все не так. Символ звездочки нельзя запихнуть в массив целых чисел потому что звездочка не является числом

[Serge_Bliznykov]

всё не так.
самое главное, что Вы задание то ли неверно скопировали, то ли задание бредовое.
Во-первых, если со школы не помните, чем отличаются цифр от числа - то погуглите.
во-вторых, что значит, заменить цифры на звёздочки? Речь идёт не о числах, а о строках?! А где менять, в массиве? или при выводе на экран содержимого массива?
в зависимости от этого и будет код.
Попытайтесь сформулировать задачу точнее, постараюсь помочь с кодом.



Stilet, Виталий, так он звёздочку в массив и не пишет. Просто присваивает некой переменной типа char, которая нигде не используется.

[Конь Антон]

1.Ввести количество проверяемых символов.
2.задать адрес первого вводимого символа.
3.пока адрес символа меньше, чем количество, повторить
4.ввести символ.
5.увеличить адрес на 1.
6.конец повторить.
7.задать адрес первого проверяемого символа.
8.задать начальное значение количества удачных проверок.
9.пока адрес проверяемого символа меньше, чем количество введенных символов, повторить.
10.если символ=коду цифры 1, то п.15
11.Иначе если символ=коду цифры 2, то п.15
12.Иначе если символ=коду цифры 3, то п.15
13.Иначе если символ=коду цифры 4, то п.15
14.Иначе если символ=коду цифры 2, то п.15
15.заменить его на код символа *.
16.количество удачных проверок заменить на 1
17.увеличить адрес на 1
18.иначе увеличить адрес на 1
19.конец повторить
20.ввести количество удачных проверок.


и надо это сделать через array 1..100 , обработка по элементно

[Stilet]

так он звёздочку в массив и не пишет.

А я и не против. Вот только он условие своей задачи в любом случае не соблюдает, писал бы или нет.

и надо это сделать через array 1..100 , обработка по элементно

Твоя задача не может быть решена при такой постановке.

[Конь Антон]

через array вообще никак ?

[Stilet]

Возьми мой пример, и string замени на array[1..255] of char. Будет тебе массивом.
Но не целочисленным, как ты хочешь.

[Serge_Bliznykov]

и надо это сделать через array 1..100 , обработка по элементно

так это, описывай массив

var mas : array[1..100] of char;

и вперёд.

p.s. В твоём алгоритме слово "адрес" - это "индекс"

Сообщение от Stilet

Возьми мой пример, и string замени на array[1..255] of char. Будет тебе массивом.

согласен!