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

[Конь Антон]

во введенном массиве должны быть найдены цифры 1,2,3,4,5 ,заменены на символ *. Должен быть произведен подсчет количества замен.

[Stilet]

Показывай наработки и попытки. Хотя бы ввод массива.

[Конь Антон]

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

Показывай наработки и попытки. Хотя бы ввод массива.

https://pp.vk.me/c622923/v622923335/...TrtYA6jQn0.jpg
вот примерно так, вроде в 3 должно быть i:=i+1

[Stilet]

А код написать?

[Конь Антон]

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

А код написать?

да, я вот вообще не понимаю как эти программы писать вот и я хочу узнать как её решить в паскале.

[Stilet]

Мдя... Вот тебе код:

var s:string;i,c:integer;
begin
 write('Вводи'); readln(s); c:=0;
 for i:=1 to Length(s) do if s[i] in ['1'..'5'] then begin s[i]:='*'; inc(c); end;
 write('Замен: ',c,' строка:',s);
end.

и с программированием завязывай пораньше. Может у тебя талант в другой области.

[Конь Антон]

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

Мдя... Вот тебе код:

var s:string;i,c:integer;
begin
 write('Вводи'); readln(s); c:=0;
 for i:=1 to Length(s) do if s[i] in ['1'..'5'] then begin s[i]:='*'; inc(c); end;
 write('Замен: ',c,' строка:',s);
end.

и с программированием завязывай пораньше. Может у тебя талант в другой области.

а можешь через массив? срочно надо

[AleksandrH]

подсчет изменений хоть сам осилишь дописать?

[Stilet]

а можешь через массив?

А это и есть через массив. Массив символов тип string.

[AleksandrH]

Stilet, судя по всему, учитель хочет видеть строку

array [1..x] of DATATYPE

или даже

type ar = array [1..x] of DATATYPE;
var a : ar