Линейные алгоритмы, условия и циклы. Массивы, строки, множества, подпрограммы и файлы. Определение позиций экстремальных элементов в массивах вещественных чисел. Осуществление циклических сдвигов элементов массива. Определение элементов матрицы.
Аннотация к работе
Даны две переменные вещественного типа A и B. Перераспределить значения в данных переменных так, чтобы A оказалась меньшее из значений, в B - больше Код: var a, b, p: real; begin write(Введите значения A и B через пробел: ); readln(a,b); if a > b then begin p:=a; a:=b; b:=p; end; writeln(A = , a, ; B = , b); end. Проверить истинность высказывания: «Точка с координатами (x,y) лежит внутри прямоугольника, левая верхняя вершина которого находится в точке (x1,y1), правая нижняя вершина - в точке (x2,y2)» Код: Var x,y,x1,y1,x2,y2: integer; Begin Write(x: ); Readln(x); Write(y: ); Readln(y); Write(x1: ); Readln(x1); Write(y1: ); Readln(y1); Write(x2: ); Readln(x2); Write(y2: ); Readln(y2); If (x>x1) and (xy2) then Writeln(Верно) else Writeln(Не верно); End.