паскаль абц -
const n=45;
var
a: array [1..n] of integer;
ras,i,x,j: integer;
begin
for i: =1 to n do
a[i]: =random(-10,50);
x: =a[1]; // икс - самое маленькое
j: =a[1]; // джей - самое большое
for i: =2 to n do
begin
if x > a[i] then
x: =a[i]; // если икс меньше следующего значения, то присваеваем ему икс
if j < a[i] then
j: =a[i]; // по аналогии, только если джей больше
end;
ras: =j-x;
writeln('разность между числами ', j,' и ',x,' равна ', ras);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить алгоритм вычисления периметра прямоугольника и его диагонали, если известны его стороны.