3. Текст программки с ошибкой представлен ниже:program n1;var a: array [1..8]

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) lt; 0 then s := s + a[1];
Writeln (s)
end
Каким окажется ответ после выполнения этой программки, если в
честве частей массива будут введены числа 1,
2, 3, 4, -1, -2, -3, -4?
Как исправить программу, чтобы она решала поставленную перед
пограммистом задачку?


ОЧЕНЬ Безотлагательно ДАМ 20Б

Ира Поплавко 2019-09-28 04:50:48

не животрепещуще