Ответ:
18
Объяснение:
Проверено в Xsel
Выбираешь через шифт ячейки от B12 по В17 и считаешь
Получается 3 колонки, 6 строчек, умножаешь и получаешь 18
Данные записаны в одной строке
координата одномерная А[i]
0+1 = 1
1*2 = 2 (или 1+1 = 2)
2+1 = 3
3*2 = 6
6*2 = 12
12*2 = 24
24+1 = 25
25*2 = 50
Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.