1.Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-15, 10] . Найти сумму отрицательных элементов массива.

2. Сформировать и вывести на экран массив, который задан генератором случайных чисел из интервала[-42;20], Распечатать элементы кратные 3

Задание 1:

begin var a := ArrRandom(ReadInteger('Количество:'),-15,10); Println('Массив:',a); Println('Сумма:',a.Where(x->x<0).Sum); end.

Задание 2:

begin var a := ArrRandom(ReadInteger('Количество:'),-42,20); Println('Массив:',a); Print('Элементы:'); a.Where(x->x mod 3 = 0).Print; end.

Пример работ:

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.