Т.к. я не знаю Паскаля могу подсказать только алгоритм.
Тебе нужно сделать 2 переменные: summ(для сохранения суммы) и line(для сохранения номера строки массива, которую ты проверяешь).
Ты
должен проверять каждую строчку считывая сумму всех элементов это
строки, а так же ты должен сохранять номер строки, которую ты
проверяешь. И сохраняешь сумму в переменной summ. Потом ты проверяешь
данные переменной summ, если меньше нуля начинаешь проверять следующую
строку, если больше тогда переносишь все данные со строки номер line в
массив. И начинаешь проверять следующую строку.
Важно: При каждой новой проверке строки обнуляй переменную summ и увеличивай на один переменную line.
Ранним утром, воробей пролетел мимо леса. Но услышав всхлипы животного , он полетел на звук. Летел он , летел и видит , заяц сидит на земле и плачет.
- "Что случилось заяц?" - спрашивает он.
- "Да вот , потерялся я , всю ночь по лесу бродил, не могу выбраться."
- "Ну, чего ты, не горюй. Помогу я тебе дом найти , ты только скажи где ты обитаешь и как домик то твой выглядит?"
- " Мой дом с красной крышей , сам синий , а рядом морковки лежат "
-"Так, хорошо , жди здесь и не уходи, я скоро прилечу."
-"Хорошо "
Тем временем воробей уже во всю старался найти домик зайца, спрашивал у животных , букашек. Но никто не знал , где находиться зайкин дом.
Но уже ближе к вечеру , он увидел красную крышу , а потом и морковки. На радостях он полетел к зайке.
-"Зайка, зайка!"-звал он его .
-" Воробей , это ты ? Я здесь !"
- "Я нашёл , пойдём скорей "
И спустя некоторое время они пришли к домику зайки. Он его поблагодарил и пригласил на чай , о воробей сказал ему больше не теряться. Так теперь они и живут вместе и помогают друг другу
1)
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2)
var
a:real;
begin
writeln('Площадь в ар.: ');
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.
Вот, тут все ответы написаны