Удалите из массива все элементы, содержащие в своей записи цифру 5.

В Паскаль

Const

n=5;

Var

ars:array[1 ... n] of string;

i, j, k:integer;

begin

k:=n;

for i:=1 to n do

readln (ars[i]);

for i:=1 to n do

if pos ('5', ars[i]) 0 then

begin;

for j:=i to n-1 do

ars[j]:=ars[j+1];

dec (k);

end;

writeln ('Final array:');

for i:=1 to k do

writeln (ars[i]);

end.