Delphi

[Грек-Илья]

Прошу помочь решить задачу через Делфи.Задание1. Построчный вывод
Даны натуральное число n, действительные числа а1, а2, … ,аn. Вывести последовательность чисел:
3.8. (a1-a2)a1, (a2-a3)a2, …, (an-1-an)an-1

[Stilet]

const n=10;
var a:array[1..n] of double; i:integer;
begin
 for i:=1 to n do readln(a[i]);
 for i:=2 to n do writeln((a[i-1]-a[i])*a[i]);
 readln;
end.

консольный Делфи. Годится?

[Грек-Илья]

Вот нам пример давали

procedure TForm1.Button3Click(Sender:TObject);
var n,i,a,s:integer;
begin
   n:=strtoint(edit1.text);
   memo2.lines.clear;
   for i:=1 to n do 
begin 
                    s:=s+strtoint(memo1.lines.strings[i-1]);
                    memo2.lines.add(‘s’+inttostr(i)+’= ’+inttostr(s));
                    	end;
end;
end.

[Stilet]

Ну нормальный пример )

s:=(strtoint(memo1.lines.strings[i-1])
  -strtoint(memo1.lines.strings[i]))
*strtoint(memo1.lines.strings[i]);

Хотя по нему скорее плохие привычки прививают а не наглядно демонстрируют методики.

[Грек-Илья]

Большое спасибо))

[Stilet]

Пожалуйста.