Массивы: сумма, произведение, сумма квадратов, среднее арифметическое всех элементов, сумму шести первых

@jekVO · Регистрация: 26.10.2014

Author24 — интернет-сервис помощи студентам

ПОМОГИТЕ ПОЖАЛУСТА

1.определить:
а)сумму всех элементов массива;
б)произведение всех элементов массива;
в)сумму квадратов всех элементов массива;
г)сумму шести первых элементов массива;
е)сумму элементов массива с k1-го по k2-й(значение k1 и k2 вводиться с клавиатуры k2>k1);
д)среднее арифметическое всех элементов;

@gosha 15 RUS · 06.03.2015, 23:51

Сообщение от jekVO

а)сумму всех элементов массива;

я не специалист но приблизительно так:

Delphi

var rezultat,n:integer; 
a:array[1..n] of integer; // n - количество элементов массива
begin
for i:=1 to n do
if a[i]=1 then  rezultat:=a[1] 
else
rezultat := rezultat+a[i] // в задании с произведением + меняешь на умножить
 
ShowMessage intTostr(rezultat)
end;

@jekVO 0 / 0 / 0 Регистрация: 26.10.2014 Сообщений: 46
		1
	Массивы: сумма, произведение, сумма квадратов, среднее арифметическое всех элементов, сумму шести первых 04.03.2015, 20:58. Показов 2462. Ответов 1 Метки нет (Все метки) ПОМОГИТЕ ПОЖАЛУСТА 1.определить: а)сумму всех элементов массива; б)произведение всех элементов массива; в)сумму квадратов всех элементов массива; г)сумму шести первых элементов массива; е)сумму элементов массива с k1-го по k2-й(значение k1 и k2 вводиться с клавиатуры k2>k1); д)среднее арифметическое всех элементов; 0

	06.03.2015, 23:51