ВОПРОС Программисту было поручено написать программу нахождения суммы отрицательных элементов одномерного целочисленного массива. Программист разработал программу, но допустил в ней одну ошибку. Текст программы с ошибкой представлен ниже:
program n1;
var a: array [1..8] of integer;
s, k: integer;
begin
for k := 1 to 8 do readln (a[k]);
s := 0;
for k := 1 to 8 do
if a[k] <0 then s := s + a[1];
writeln(s)
end.
1) Каким окажется ответ после исполнения этой программы, если в качестве элементов массива будут введены числа 1, 2, 3, 4, -1, -2, -3, -4?
2) Как исправить программу, чтобы она решала поставленную перед программистом задачу?
program n1;
var a: array [1..8] of integer;
s, k: integer;
begin
for k := 1 to 8 do readln (a[k]);
s := 0;
for k := 1 to 8 do
if a[k] <0 then s := s + a[1];
writeln(s)
end.
1) Каким окажется ответ после исполнения этой программы, если в качестве элементов массива будут введены числа 1, 2, 3, 4, -1, -2, -3, -4?
2) Как исправить программу, чтобы она решала поставленную перед программистом задачу?
Ответы 1
1
Решение №1 от Андрей Григорьев