Удалить в массиве предпоследний неотрицательный элемент pascal abc

210

272

Посмотреть ответы 2

Ответы на вопрос:

dcherbaev777

Информатика

4,7(77 оценок)

Const n=20; var i,k,m: integer; a: array[1..n] of integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(-10,10); write(a[i],' '); end; writeln; k: =0; m: =0; for i: =n downto 1 do begin if a[i]> =0 then k: =k+1; if k=2 then begin m: =i; break; end; end; if m> 0 then begin for i: =m to n-1 do a[i]: =a[i+1]; writeln('новый массив: '); for i: =1 to n-1 do write(a[i],' '); end else writeln('нет такого элемента'); end.исходный массив: -9 -3 8 -10 7 7 6 10 4 -2 -10 7 -1 -3 10 -4 2 10 7 -5 новый массив: -9 -3 8 -10 7 7 6 10 4 -2 -10 7 -1 -3 10 -4 2 7 -5

Larka2017

Информатика

4,7(30 оценок)

Uruguay Uzbekistan Vanuatu Wallis and Futuna Islands and consideration and I am frm I am frm I am frm I am frm I am frm I am frm have a good idea to record the same the same the same the same the same the same the same in this message was sent to record the fuveriovgo79 and look forward in this email has been working on