Три одноклассника — Влад, Тимур и Том, встретились спустя 11 лет после окончания школы.
Выяснилось, что один из них стал актёром, другой физиком, а третий юристом.
Том сказал, что на туризм ему не хватает времени, хотя его сестра — единственный юрист в семье, заядлый турист.
Одноклассники вспомнили, что Влад всегда увлекался точными науками, а профессию выбрал не связанную с точной наукой.
Зато Тимур никогда не любил точные науки, т.к. является очень творческим человеком и связал свою жизнь с театром.
Выбери профессию.
Тимур — 1)нет верного ответа 2)физик 3) актер 4)юрист
Тебе нужно сделать 2 переменные: summ(для сохранения суммы) и line(для сохранения номера строки массива, которую ты проверяешь).
Ты должен проверять каждую строчку считывая сумму всех элементов это строки, а так же ты должен сохранять номер строки, которую ты проверяешь. И сохраняешь сумму в переменной summ. Потом ты проверяешь данные переменной summ, если меньше нуля начинаешь проверять следующую строку, если больше тогда переносишь все данные со строки номер line в массив. И начинаешь проверять следующую строку.
Важно: При каждой новой проверке строки обнуляй переменную summ и увеличивай на один переменную line.
n = 5;{ это позволяет в одном месте изменить количество чисел }
type
numeric = real;{ это позволяет в одном месте изменить тип чисел }
var
max, min: numeric;
i: integer;
a: array[1..n] of numeric;
begin
Writeln('Введите ', n, ' произвольных чисел через пробел');
Read(a[1]);
min := a[1]; max := min;
for i := 2 to n do
begin
Read(a[i]);
if max < a[i] then max := a[i]
else
if min > a[i] then min := a[i]
end;
Writeln('Минимальное введенное: ', min, ', максимальное: ', max)
end.
Тестовое решение:
Введите 5 произвольных чисел через пробел
34 157 -84.54 14.843 -13.64
Минимальное введенное: -84.54, максимальное: 157