Const n=10; var a:array[1..n] of integer; i,kp,sn: integer;
begin Randomize; Writeln('Элементы массива'); kp:=0; sn:=0; for i:=1 to n do begin a[i]:= Random(31)-10; Write(a[i]:4); if a[i]>0 then Inc(kp); if (i mod 2)<>0 then sn:=sn+a[i] end; Writeln; Writeln('Количество положительных элементов: ',kp); Writeln('Сумма элементов на нечетных местах: ',sn); Writeln('Элементы массива после замены'); for i:=1 to n do begin if a[i]<10 then a[i]:=10; Write(a[i]:4) end; Writeln end.
Тестовое решение: Элементы массива 10 11 -4 11 12 13 -1 -2 -8 7 Количество положительных элементов: 6 Сумма элементов на нечетных местах: 9 Элементы массива после замены 10 11 10 11 12 13 10 10 10 10
Чтобы задать прямоугольник, достаточно указать координаты концов его диагонали, например, идущей из левого верхнего угла в правый нижний, т.е. две точки: B(x1,y1) и D(x2,y2). Но можно также задать и другую диагональ (AC). Если считать, что стороны прямоугольника параллельны осям координат то длины сторон могут быть найдены как Тогда можно найти и периметр: Нахождение периметра оформим процедурой Per(x1,y1,x2,y2,P)
procedure Per(x1,y1,x2,y2:real;var P:real); begin P:=2*(abs(x2-x1)+abs(y2-y1)) end; var x1,x2,y1,y2,p:real;
