Дан массив действительных чисел А их 10 элементов, заданных случайным образом в диапазоне от 0 до 44. Заменить все члены, большие заданного x, этим числом. Число х вводится с клавиатуры.
Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
Const N=10;
Var A: array [1..N] of integer;
i, x: integer;
begin
writeln ('Введите х');
readln (x);
for i:=1 to N do
begin
A[i]:= random (45);
end;
for i:=1 to N do
begin
If A[i] > x then A[i]:= x;
write (A[i], ' ');
end;
end.
Объяснение: