••-- •-•• •• •-•- (Юлия)
-- •- - • -- •- - •• -•- •- (математика)
Const k = 100;
var mas:array [1..k] of integer;
i,a,b,s,n:integer;
begin
write('Количество элементов: ');readln(n);
write('Первый и второй элемент: ');readln(a,b);
mas[1]:=a;mas[2]:=b;s:=a+b;
write( mas[1],' ',mas[2],' ');
for i:=3 to n do begin
mas[i]:=s;
s:=s+ mas[i];
write(mas[i],' ');
end;
end.
Тестовое решение:
Количество элементов: 10
Первый и второй элемент: 2 3
2 3 5 10 20 40 80 160 320 640
A:=x+1/x-1
b:=a;
for i:=1 to x do b:=b*a;
b:=b+18*x*(y*y);
<em>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,6,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var t:=a.ElementsWithIndexes.MinBy(x->x[2]);
Writeln('Min: A[',t[0]+1,',',t[1]+1,']=',t[2])
end.
<u>Пример</u>
*** Исходный массив ***
-30 55 92 98 96 29
-41 -11 -94 72 -3 -91
64 48 10 10 -85 91
------------------------
Min: A[2,3]=-94
А1 2
А2 4
А3 1
А4 1
Соответствует круговая диаграмма под номером 2.