Question

3. Текст программы с ошибкой представлен ниже:
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,
2, 3, 4, -1, -2, -3, -4?
Как исправить программу, чтобы она решала поставленную перед
пограммистом задачу?


ОЧЕНЬ СРОЧНО ДАМ 20Б​

Answer 1

program l4 hooteg 5[3] doodle teen [g9-343;9] rees forth [¢75-21:64] common arrel has been loj 532+63:[67;32+(3-21)] у меня вышло такое, вроде как правильно.