Т.к. я не знаю Паскаля могу подсказать только алгоритм. Тебе нужно сделать 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
Program asd;
var y:real;
x:integer;
begin
writeln('Введите значения X');
readln(x);
y:=5*x*x-4/2/x+8;
writeln('y=',y);
end.
Неограниченные возможности для обучения без рекламы со Знаниями Плюс
ПОПРОБУЙ СЕГОДНЯ
3.4
Подробнее - на -