1,6,7,5,9. 1 меньше 6 на 6 раз,
1. Функция ВПР
Вертикальное первое равенство. Ищет совпадение по ключу в первом столбце определенного диапазона и ВОЗВращает значение из указанного столбца этого диапазона в совпавшей с ключом строке.
2. Функция ГПР
Горизонтальное первое равенство. Ищет совпадение по ключу в первой строке определенного диапазона и Возвращает значение из указанной строки этого диапазона в совпавшем с ключом столбце.
3. Функция СTPOKA
Определяет и возвращает номер строки указанной ссылкой ячейки.
4. Функция СТОЛБЕЦ
Возвращает номер столбца ячейки,
указанной ссылкой.
5. Функция АДРЕС
Возвращает текст, представляющий адрес ячейки, заданной номерами строки и столбца.
1. Функция ВПР
Вертикальное первое равенство. Ищет совпадение по ключу в первом столбце определенного диапазона и возвращает значение из указанного столбца этого диапазона в совпавшей с ключом строке.
2. Функция ГПР
Горизонтальное первое равенство. Ищет совпадение по ключу в первой строке определенного диапазона и возвращает значение из указанной строки этого диапазона в совпавшем с ключом столбце.
3. Функция СТРОКА
Определяет и возвращает номер строки указанной ссылкой ячейки.
4. Функция СТОЛБЕЦ
Возвращает номер столбца ячейки, указанной ссылкой.
5. Функция АДРЕС
Возвращает текст, представляющий адрес ячейки, заданной номерами строки и столбца.
program Num5;
var
A: array [1..5] of Integer;
i, s, iLast: Integer;
begin
for i := Low (A) to High (A) do begin
Write ('Введите ', i, ' число: ');
ReadLn (A [i]);
end;
WriteLn;
s := 0;
for i := Low (A) to High (A) do begin
if A [i] > 0 then
s := s + A [i]
else
s := s - A [i];
end;
iLast := -1;
for i := High (A) downto Low (A) do begin
if A [i] > 0 then begin
iLast := i;
Break;
end;
end;
WriteLn ('Сумма = ', s);
if iLast <> -1 then
WriteLn ('Последнее положительное значение = ', A [iLast])
else
WriteLn ('Положительных значений не найдено.');
ReadLn;
end.