ОЧЕНЬ СРОЧНО, ПЛИЗ. а)Упорядочить элементы одномерного массива ...
ОЧЕНЬ СРОЧНО, ПЛИЗ.
а)Упорядочить элементы одномерного массива А(10) произвольных чисел по возрастанию их значений.
б) В одномерном массиве произвольных чисел А(10) вычислить среднее арифметическое значение квадратов положительных элементов.
Есть ответ
17.12.2022
110
Ответ
var i,j: integer; x: real; a : array [1..10] of real;begin for i := 1 to 10 do read (a[i]); for i := 2 to 10 do begin for j := 10 downto i do if a[j-1]>a[j] then begin x := a[j-1]; a[j-1] := a[j]; a[j] := x; end; end; for i := 1 to 10 do write (a[i], ' ');end;
var
a : array [1..10] of integer;
i, c, sum : integer;
begin
for i := 1 to 10 do read (a[i]);
c := 0; sum := 0;
for i := 1 to 10 do
if a[i] > 0 then
begin
inc (c);
inc (sum, sqr (a[i]));
end;
writeln (sum / c);
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
