Пожалуйста, помогите решить. :с Пусть задан массив var B:array[1..20] of integer; а)пятый элемент массива сделать равным 45; б)вывести 20-ый элемент массива; в)ввести значение 10-ого элемента массива; г)вычислить сумму 3,4 и 5...
Пожалуйста, помогите решить. :с
Пусть задан массив
var B:array[1..20] of integer;
а)пятый элемент массива сделать равным 45;
б)вывести 20-ый элемент массива;
в)ввести значение 10-ого элемента массива;
г)вычислить сумму 3,4 и 5 массивов;
д)присвоить первому элементу значение, равное 2, а всем последующим элементам - удвоенное произведение предыдущего.
Гость
Ответ(ы) на вопрос:
Гостьа) 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];
Не нашли ответ?
Похожие вопросы