Регистрация
alenushkabelya
04.11.2021 03:34
Информатика
Есть ответ 👍

Вставить число, введённое с клавиатуры после первого отрицательного элемента массива. если отрицательный элемент отсутствует, то вставить число в конец массива.

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

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

makismunguran
makismunguran
4,8(82 оценок)
Vara,b,c,i: longint; m: array[1..1000] of longint; begin c: =0; readln(a); readln(b); for i: =1 to b do begin read(m[i+c]); if (m[i+c]< 0) and (c=0) then begin m[i+1]: =a; c: =1; end; end; for i: =1 to b+1 do write(m[i],' '); end.
akerkinjanel47
akerkinjanel47
4,5(29 оценок)
Всего 6        1234 2345 3456 4567 5678 6789 

Популярно: Информатика