Uses crt; const n=15; var a: array[1..n] of integer; i,j,k,t: integer; found: boolean; begin clrscr; randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(90)+1; write(a[i],' ') end; writeln; i: =n; found: =false; repeat found: =(a[i] mod 2=0); if (not found) then dec(i) until found or (i=0); if found then begin for i: =i to n-1 do a[i]: =a[i+1]; writeln('результирующий массив: '); for i: =1 to n-1 do write(a[i],' ') end; readkey end. тестовое решение: исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47
Спасибо
Ответ дал: Гость
var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Ответ дал: Гость
var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Популярные вопросы