Проверка элементов массива на совпадение с заданными числами - Pascal ABC

Формулировка задачи:

Задача: мы вводим массив n, затем САМИ ВЫБИРАЕМ НОМЕР ЭЛЕМЕНТА для проверки, т.е. mas[1]-первый элемент, mas[2]- второй и так далее(мы можем выбрать любой элемент, например с конца начать проверку),проверка заключается в том что, если какой-то из этих элементов равен 1,2,3,4,5 меняем цифру на символ * в итоге вывод на экран должен быть, например, таким, **88 программ а изначально вводим 1488 программ

Код к задаче: «Проверка элементов массива на совпадение с заданными числами - Pascal ABC»

textual
program forum;
uses crt;
var str:String;
i:integer;
begin
write('vvedite massiv: ');
readln(str);
for i:=1 to length(str) do
begin
if(str[i]='1') or (str[i]='2') or (str[i]='3') or (str[i]='4') or (str[i]='5') then
str[i]:='*';
end;
writeln('vivod: ');
writeln(str);
end.

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ