Удалите из массива все элементы, содержащие в своей записи цифру 5.
Удалите из массива все элементы, содержащие в своей записи цифру 5.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.0 сборка 1111
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.
Пример ввода:
3434
5656
6767
5757
8989
Пример вывода:
Final array:
3434
6767
8989
Не нашли ответ?
Похожие вопросы