Var a: array [1..20] of integer; i,s1,s2:integer;
Всё очень просто, черточки на линиях идущих из центра ответствуют значениям 5, 10 и 15, линий всего 5, значит диаграмма построена по 5 параметрам, следовательно взглянув на диаграмму мы видим что первое значение у нас 4, соответствует ячейке А1, второе значение 10 соответствует ячейке С1, третье значение 15 соответствует ячейке D1, четвертое значение 4, соответствующее ячейке Е1 и пятое значение 8 соответствующее ячейке F1
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t->t-a); m.Println
end.
<u>Пример</u>
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3