Вопрос по информатике:
ОЧЕНЬ СРОЧНО, ПЛИЗ.
а)Упорядочить элементы одномерного массива А(10) произвольных чисел по возрастанию их значений.
б) В одномерном массиве произвольных чисел А(10) вычислить среднее арифметическое значение квадратов положительных элементов.
- 13.06.2017 15:04
- Информатика
- remove_red_eye 17311
- thumb_up 99
Ответы и объяснения 1
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.
- 14.06.2017 10:44
- thumb_up 62
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.