Выбирете из предложенного списка программу, относящуюся к сервисным программам. (Укажите правильный вариант ответа.) 1. Операционные системы 2. Системы программирования 3. Графические редакторы 4. Архиваторы
Чтобы задать прямоугольник, достаточно указать координаты концов его диагонали, например, идущей из левого верхнего угла в правый нижний, т.е. две точки: 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;
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
4. Архиваторы
Объяснение: