Доступ до елементів масиву здійснити двома : - за іменем масиву, індексом рядка та стовпця

1.

program n1;

var

k, s: integer;

a: array [1..8] of integer;

begin

for k := 1 to 8 do readln(a[k]);  // с клавиатуры вводится массив из 8

s := 0;                                           элементов

for k := 1 to 8 do

if a[k] < 0 then s := s + a[1];  // в цикле 4 раза к s прибавляют 1-ый элемент

writeln(s);                             // выводится s

end.

ответ: 4(т.к 1-ый элемент массива 1 и в нём 4 отрицательных элемента)

2.  

Надо строку if a[k] < 0 then s := s + a[1];

Заменить на строку if a[k] < 0 then s := s + a[k];

Объяснение:

1):С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка ->
    С:\Учеб­ный ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка ->
    С:\Учеб­ный ->
Не подходит, т.к. Витя опустился на n уровней, а поднялся на  n+2, что не подходит по условию.
2)С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние -> 
   С:\Учеб­ный\Ин­фор­ма­ти­ка ->
   С:\Учеб­ный ->
   С:\Учеб­ный\Ин­фор­ма­ти­ка -> 
   С:\Учеб­ный\Ин­фор­ма­ти­ка\Про­грам­ми­ро­ва­ние->
   С:\Учеб­ный\Ин­фор­ма­ти­ка\Про­грам­ми­ро­ва­ние\Пас­каль
Не подходит, т.к. Витя спустился на либо на 2 уровня вниз, либо на 3, а поднялся либо на 3, либо на 4 уровня вверх, что не подходит по условию.
3)С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние ->
   С:\Учеб­ный\Ин­фор­ма­ти­ка -> 
   С:\Учеб­ный -> 
   С:\Учеб­ный\Ма­те­ма­ти­ка -> 
   С:\Учеб­ный\Ма­те­ма­ти­ка\Дроби
Подходит. Витя опустился на 2 уровня вниз и поднялся на 2 уровня вверх.
4)С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние -> 
   С:\Учеб­ный\Ин­фор­ма­ти­ка ->
   С:\Учеб­ный ->
   С:\ ->
   С:\Учеб­ный\ ->
   С:\Учеб­ный\Ин­фор­ма­ти­ка
Не подходит, т.к. Витя спустился на 3 уровня вниз, а поднялся на 2, что не подходит по условию.
ответ: 3)