Напишите программный код для решения задачи: отсортировать массив из 15 элементов (заполненный случайными числами из диапазона [-15,50]) методом Пузырька по убыванию элементов массива.
1. Записывает введенное пользователем значение в переменную dr 2. integer 3. sqrt(число) 4. var 5. 16 6. 2 7. function x(a,b,c:integer); begin x:=-b+sqr(b)-sqr(4*a*c)*a; end; 8. 11 9. end. 10. d) 11. var a,b,c:integer; result:real; begin readln(a,b,c); result:=(a*b*c)/3; writeln(result:0:3); end. 12. real 13. оператор присвоения 14. Присвоить переменной F значение 125 15. write(B); или writeln(B); 16. корень из суммы квадрата х и ста делить на разность а и b умноженной на с 17. с) 18. Нет картинки как образован массив, значит сами решите 19. d) 20. c) 21. c)
//1) var A: array [1..30] of integer; i: byte; mult: double; begin mult := 1; randomize; writeln('Сгенерированный массив.'); for i := 1 to 30 do begin A[i] := random(46)-15; if A[i] > 0 then mult := mult * A[i]; write(A[i], ' '); end; writeln; writeln('Произведение положительных элементов = ', mult); end. //
//2) var A: array [1..40] of integer; i: byte; count: byte; begin count := 0; randomize; writeln('Сгенерированный массив.'); for i := 1 to 40 do begin A[i] := random(31)-20; if A[i] mod 3 = 0 then count := count + 1; write(A[i], ' '); end; writeln; writeln('Количество элементов кратных трем = ', count); end. //
//3) var A: array [1..40] of integer; i: byte; count: byte; sum: integer; begin count := 0; sum := 0; randomize; writeln('Сгенерированный массив.'); for i := 1 to 40 do begin A[i] := random(61)-30; if A[i] < 0 then begin count := count + 1; sum := sum + A[i]; end; write(A[i], ' '); end; writeln; writeln('Среднее арифметическое отрицательных эл. =',(sum/count):4:4); end. //
ответ на Pascal:
const N = 15;
var a: Array[1..N] of integer;
i,j,k: integer;
begin
for i := 1 to N do begin
a[i] := random(-66) + 50;
write(a[i],' ');
end;
writeln();
j := N-1;
while j > 0 do begin
for i := 1 to j do begin
if a[i] < a[i+1] then begin
k := a[i];
a[i] := a[i+1];
a[i+1] := k;
end;
end;
j := j-1;
end;
for i := 1 to N do begin
write(a[i],' ');
end;
end.
ответ на Python:
from random import randint
n = 15
a = [randint(-15,50) for i in range(n)]
print(a)
for j in range(n-1, 0, -1):
for i in range(j):
if a[i] < a[i+1]:
k = a[i]
a[i] = a[i+1]
a[i+1] = k
print(a)