Т.к. я не знаю Паскаля могу подсказать только алгоритм. Тебе нужно сделать 2 переменные: summ(для сохранения суммы) и line(для сохранения номера строки массива, которую ты проверяешь).
Ты должен проверять каждую строчку считывая сумму всех элементов это строки, а так же ты должен сохранять номер строки, которую ты проверяешь. И сохраняешь сумму в переменной summ. Потом ты проверяешь данные переменной summ, если меньше нуля начинаешь проверять следующую строку, если больше тогда переносишь все данные со строки номер line в массив. И начинаешь проверять следующую строку.
Важно: При каждой новой проверке строки обнуляй переменную summ и увеличивай на один переменную line.
Const 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
Тебе нужно сделать 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