Информатика 7 класс контрольная работа вариант (программа Pascal)​

Круги́ э́йлера — схема, с которой можно изобразить отношения между подмножествами, для наглядного представления. изобретены эйлером. используется в , логике, менеджменте и других прикладных направлениях. важный частный случай кругов эйлера — диаграммы эйлера — венна, изображающие все 2n комбинаций n свойств, то есть конечную булеву . при n=3 диаграмма эйлера — венна обычно изображается в виде трёх кругов с центрами в вершинах равностороннего треугольника и одинаковым радиусом, приблизительно равным длине стороны треугольника. при решении целого ряда леонард эйлер использовал идею изображения множеств с кругов. однако, этим методом еще до эйлера пользовался филосов и готфрид вильгельм лейбниц (1646—1716). но достаточно основательно развил этот метод сам л. эйлер. методом кругов эйлера пользовался и эрнст шрёдер (1841—1902) в книге « логики» . особенного расцвета графические методы достигли в сочинениях логика джонa венна (1843—1923), подробно изложившего их в книге «символическая логика» , изданной в лондоне в 1881 году. поэтому такие схемы иногда называют диаграммы эйлера — венна.

1.
const n=10;
var a:array[1..n] of integer;
s,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(51)-25;
 write(a[i]:4);
 end;
writeln;
s:=0;
for i:=1 to n do
 if a[i]<0 then a[i]:=-a[i];
writeln('Полученный массив:');
s:=0;
for i:=1 to n do begin
 write(a[i]:4);
 s:=s+a[i];
 end;
writeln;
writeln('s = ',s);
end.

Пример:
Исходный массив:
   3   2  16  18 -16 -20 -15  -8 -23  17
Полученный массив:
   3   2  16  18  16  20  15   8  23  17
s = 138

2.
begin
  var a:=ArrRandom(ReadInteger('n='),-25,25);
  a.Println;
  a:=a.Select(x->x<0?-x:x).ToArray;
  a.Println;
  Writeln('Сумма равна ',a.Sum);
end.