Question

Пожалуйста, помогите решить. :с

Пусть задан массив
var B:array[1..20] of integer;

а)пятый элемент массива сделать равным 45;
б)вывести 20-ый элемент массива;
в)ввести значение 10-ого элемента массива;
г)вычислить сумму 3,4 и 5 массивов;
д)присвоить первому элементу значение, равное 2, а всем последующим элементам - удвоенное произведение предыдущего.

Answer 1

а) B[5]:=45;
б) Write(B[20]);
в) Read(B[10];
г) s:=B[3]+B[4]+B[5];
д) B[1]:=1; for i:=2 to 20 do B[i]:=2*B[i-1];