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];