73

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

07 марта 2023

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

категория: информатика



79

Vara,b,c,i: longint; m: array[1… 1000] of longint; Beginc: =0; readln (a); readln (b); for i: =1 to b dobeginread (m[i+c]); if (m[i+c]<0) and (c=0) thenbeginm[i+1]: =a; c: =1; end; end; for i: =1 to b+1 dowrite (m[i],'); End.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...