Даны n, вещественные массивы a(n), b(n). Найти наибольшее среди чисел y,b1,b2,b3,...,bn , где y - сумма элементов массива a

[Прокурор]

Даны n, вещественные массивы a(n), b(n).Найти наибольшее среди чисел y,b1,b2,b3,...,bn , где y - сумма элементов массива a, по модулю не превосходящих единицы

[Mad_Cat]

y:=0;
for i:=1 to n do
if abs(a[i])<1 then y:=y+a[i];
for i:=1 to n do
if b[i]>y then y:=b[i];
writeln(y);

[Прокурор]

Сообщение от Mad_Cat

y:=0;
for i:=1 to n do
if abs(a[i])<1 then y:=y+a[i];
for i:=1 to n do
if b[i]>y then y:=b[i];
writeln(y);

а потом стандартно искать максимальный элемент без всяких тонкостей?

[Mad_Cat]

а потом стандартно искать максимальный элемент без всяких тонкостей?

это и есть код поиска максимального значения!
ВаШ КО!

[Прокурор]

Сообщение от Mad_Cat

это и есть код поиска максимального значения!
ВаШ КО!

Но ведь там у меня два массива, в одном из них я нахожу сумму всех элементов от -1 до 1 и принимаю за у, а затем сравниваю с элементами второго массива и нахожу максимальный элемент.как мне кажется вы написали что-то не то

тогда как же выглядит вся задачка?

[Mad_Cat]

мне кажется

когда кажется креститься надо

я нахожу сумму всех элементов от -1 до 1 и принимаю за у

y:=0;
for i:=1 to n do
if abs(a[i])<1 then y:=y+a[i];

а затем сравниваю с элементами второго массива и нахожу максимальный элемент

for i:=1 to n do
if b[i]>y then y:=b[i];
writeln(y);

тогда как же выглядит вся задачка?

если бы я хотел написать ее полностью - я бы это сделал

[Прокурор]

Program sdf;
     const n=10;
     var a: array[1..n] of real;
     b: array[1..n] of real;
     y: real;
     i:integer;
     begin
          writeln('введите значения элементов одномерного массива а: ');
for i:=1 to 10 do begin
  write('a[',i,'] = ');
  readln(a[i]);
  writeln('введите значения элементов одномерного массива b: ');
  end;
for i:=1 to 10 do begin
  write('b[',i,'] = ');
  readln(b[i]);
y:=0;
end;
for i:=1 to n do
if abs(a[i])<1 then y:=y+a[i];
for i:=1 to n do
if b[i]>y then y:=b[i];
writeln(y);
end.

вот так?

[Mad_Cat]

почти)

for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln('введите значения элементов одномерного массива b: ');
for i:=1 to 10 do begin
write('b[',i,'] = ');
readln(b[i]);
end;
y:=0;

но здесь можно в 2 цикла уложиться вместо 4-х)

Program sdf;
const n=10;
var a: array[1..n] of real;
    b: array[1..n] of real;
    y: real;
    i:integer;
begin
     y:=0;
     writeln('введите значения элементов одномерного массива а: ');
     for i:=1 to 10 do begin
         write('a[',i,'] = ');
         readln(a[i]);
         if abs(a[i])<1 then y:=y+a[i];
     end;
     writeln('введите значения элементов одномерного массива b: ');
     for i:=1 to 10 do begin
         write('b[',i,'] = ');
         readln(b[i]);
         if b[i]>y then y:=b[i];
     end;
     writeln(y);
end.

[Прокурор]

Сообщение от Mad_Cat

но здесь можно в 2 цикла уложиться вместо 4-х)

главное считает правильно)))