Вычислить значение выражения

@NaTashKa01 · Регистрация: 17.11.2012

Всем привет помогите решить задачку пожалуйста.

Даны действительные числа a₁...a₂₀. Найти сумму значений |a_i-a_j|
(1<=i<j<=20) и распечатать

Заранее спасибо)

@NaTashKa01 · 21.11.2012, 18:34 **[ТС]**

ну помогите кто-нибудь(

@orange_rush · 21.11.2012, 18:50

Pascal

uses crt;
var
a: array[1..20] of real;
i,j,k: byte;
r: real;
BEGIN
   clrscr;
   writeln('исходный массив: ');
   for i:=1 to 20 do begin
      a[i]:=random(11)/3.8;
      write(a[i]:4:2,' ');
   end;
   writeln;
   writeln('с какого элемента по какой сложить? через пробел: ');
   readln(i,j);
   for k:=i to j do r:=r+a[k];
   writeln(r:4:2);
   readln();
END.

@NaTashKa01 · 23.11.2012, 13:11 **[ТС]**

Спасибочки =****

@NaTashKa01 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 39
		1
	Вычислить значение выражения 17.11.2012, 22:32. Просмотров 988. Ответов 3 Метки нет (Все метки) Всем привет помогите решить задачку пожалуйста. Даны действительные числа a₁...a₂₀. Найти сумму значений \|a_i-a_j\| (1<=i<j<=20) и распечатать Заранее спасибо) 0 Миниатюры

@NaTashKa01 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 39
	21.11.2012, 18:34 [ТС]	2
	ну помогите кто-нибудь( 0

@NaTashKa01 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 39
	23.11.2012, 13:11 [ТС]	4
	Спасибочки =**** 0

Опции темы

Вычислить значение выражения

Решение