ОЧЕНЬ БАЛЛОВ
Какое значение примет переменная k в результате выполнения фрагмента программы:
а:= 25;
if a>0 then k:=1 else k:=0
ответ

1

)))))))))))))))))))))))))

а остальные задания?

ответ: 32

Объяснение:

массив будет сформирован:

a[1]=1*(1+1)=1*2=2

a[2]=2*(2+1)=2*3=6

....

a[5]=5*(5+1)=5*6=30

сумма: a[1]+a[5]=2+30=32

1)

2)чтобы создать таблицу, используют команду таблица > вставить таблицу. в открывшемся диалоговом окне указывают размер таблицы (в ячейках), а также дополнительные параметры, реализуемые как атрибуты соответствующих тегов. чтобы занести информацию в таблицу, следует установить курсор в нужную ячейку и начать ввод. при работе с ячейками таблицы можно применять любые команды форматирования.

program p_1; var i, n : integer; s : real; b : array [1..1000] of real; begin writeln('введите количество значений массива n'); readln(n); write('введите элементы массива а: '); for i: =1 to n do readln(a[i]);   writeln('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if a[i] mod 2 = 0 then s: =s+b[i]; writeln('сумма четных значений =', s); end.