Вставить число после последнего положительного элемента одномерного массива

@СашаСашаСашаС · Регистрация: 30.09.2016

составить программу которая бы вставляла число х после последнего положительного элемента массива(х-вв с клав)массив заполнен случ образом в диапазоне (-40 до 30)размерность массива =10

@vint-81 · 21.11.2016, 17:57

Pascal

const n=10;a=-40;b=30;
type mas=array[1..n+1] of integer;
var m:mas; 
    i,x,pp:integer;
    f:boolean;
begin
    f:=false;
    writeln('Массив: ');
    for i:=1 to n do
     begin
      m[i]:=a+random(b-a+1);
      if m[i]>0 then begin f:=true;pp:=i end;
      write(m[i]:4)
     end;
    writeln;
    if f then begin
               write('x = ');readln(x);
               for i:=n+1 downto pp+1 do m[i]:=m[i-1];
               m[pp+1]:=x;
               for i:=1 to n+1 do write(m[i]:4)
              end
         else writeln('Нет положительных')
end.

@СашаСашаСашаС 0 / 0 / 0 Регистрация: 30.09.2016 Сообщений: 34
		1
	Вставить число после последнего положительного элемента одномерного массива 21.11.2016, 17:39. Просмотров 1506. Ответов 1 Метки нет (Все метки) составить программу которая бы вставляла число х после последнего положительного элемента массива(х-вв с клав)массив заполнен случ образом в диапазоне (-40 до 30)размерность массива =10 0

Опции темы

Вставить число после последнего положительного элемента одномерного массива

Решение