Регистрация
shakhid08
25.03.2023 20:18
Информатика
Есть ответ 👍

решить 2 задания за 35 баллов

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

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

ivanychboss
ivanychboss
4,4(93 оценок)

я не понимаю..тут что нужно сделать? типо в каждой грядке посадить и не возвращаться на грядку где посажино?

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.

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