var x: array[1..n] of real; max: real; i: integer;
begin Writeln('Введите ', n, ' элементов массива'); max := -1e20; { число, заведомо меньшее вводимых } for i := 1 to n do begin Read(x[i]); if max < x[i] then max := x[i] end; Writeln; for i := 1 to n do begin x[i] := x[i] / max; Write(x[i], ' ') end; Writeln end.
1. Var a,b,c:integer; Begin Write('Введите а, в, с: '); Readln(a,b,c); if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,', ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c)); End.
2. Var r,a:integer; Begin Write('Введите радиус круга '); Readln(r); Write('Введите сторону квадрата '); Readln(a); writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a)); if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата'); End.
n = 50;
var
x: array[1..n] of real;
max: real;
i: integer;
begin
Writeln('Введите ', n, ' элементов массива');
max := -1e20; { число, заведомо меньшее вводимых }
for i := 1 to n do
begin
Read(x[i]);
if max < x[i] then max := x[i]
end;
Writeln;
for i := 1 to n do
begin x[i] := x[i] / max; Write(x[i], ' ') end;
Writeln
end.