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

@nik_f2 · Регистрация: 02.10.2017

Author24 — интернет-сервис помощи студентам

Дан массив b состоящий из n элементов. Элементы массива ввести с клавиатуры. Удалить из массива последний отрицательный элемент. Вывести новый массив.

@AndrewBeletskiy · 30.10.2017, 20:00

nik_f2,

Pascal

program task;
const maxN = 10;
var b: array [1..maxN] of integer;
    i: integer;
    n: integer;
    lastNegIndex: integer;
BEGIN
    writeln('Enter size of array(max=',maxN,'): ');
    read(n);
    lastNegIndex := 0;
    for i:=1 to n do
    begin
        read(b[i]);
        if b[i] < 0 then
        begin
            lastNegIndex := i;
        end;
    end;
    if lastNegIndex <> 0 then
    begin
        for i := lastNegIndex to n-1 do
        begin
            b[i] := b[i+1];
        end;
        n := n-1;
    end;
    
    for i:=1 to n do
    begin
        write(b[i], ' ');
    end;
    writeln;
    
END.

@nik_f2 -2 / 0 / 1 Регистрация: 02.10.2017 Сообщений: 35
		1
	Удалить из массива последний отрицательный элемент 30.10.2017, 19:55. Показов 3893. Ответов 1 Метки turbo pascal (Все метки) Дан массив b состоящий из n элементов. Элементы массива ввести с клавиатуры. Удалить из массива последний отрицательный элемент. Вывести новый массив. 0

	30.10.2017, 20:00

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

Решение