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

Ответы 1

  • //Pascal ABC.NET v3.0 сборка 1111Const n=5;Var ars:array[1..n] of string; i,j,k:integer;begink:=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.Пример ввода:34345656676757578989Пример вывода:Final array:343467678989
    • Автор:

      dear6cx8
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years