0 / 0 / 0
Регистрация: 19.11.2017
Сообщений: 1
1

Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения

17.12.2017, 17:49. Показов 1141. Ответов 1
Метки нет (Все метки)

Сгенерировать массив из 18 элементов случайных чисел от 0 до 100. Вывести массив на экран в три строки,по 6 элементов в каждой строке. Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения. Помогите, пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2017, 17:49
Ответы с готовыми решениями:

Найти максимальное и минимальное значения среди элементов массива и их среднее арифметическое
Помогите пожалуйста с заданием: В массиве А(20) найти максимальное и минимальное значения среди...

Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива
Помогите найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного...

Найти среднее арифметическое элементов для каждого из столбцов массива, имеющих четные номера
помогите пожалуйста ооч надо Пусть дано натуральное число n и вещественная матрица размером n*9....

Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение
Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное...

1
108 / 96 / 45
Регистрация: 12.09.2017
Сообщений: 1,128
17.12.2017, 20:36 2
Лучший ответ Сообщение было отмечено Катерина1899 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var x : array [1..18] of real;
    i, k1, k2 : integer;
    min, max, sum : real;
begin
  Randomize;
  Writeln('Массив: ');
  for i := 1 to 18 do
  begin
    X[i] :=random(100);
    Write(x[i], ' ');
    sum:=sum+x[i];
    if i mod 6 = 0   // переход на следующую строку
    then Writeln;
  end;
  max := x[i];
  min := x[i];
  for i:=1 to 18 do  // нахождение max и min элементов массива
  begin
  if min > x[i]
  then begin
    min := x[i];
    k1:=i;
  end;
  if max < x[i]
  then begin
    max := x[i];
    k2:=i;
  end;
  end;
  sum:=sum/18;
  Writeln('Наибольший элемент массива: ', k2);
  Writeln('Наименьший элемент массива: ', k1);
  Writeln('Среднее арифметическое всех элементов массива: ', sum);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2017, 20:36

Найти среднее арифметическое всех элементов массива, имеющих нечётное значение
2) Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до...

Найти номера всех элементов целочисленного массива, имеющих максимальные значения
Найти номера всех элементов целочисленного массива, имеющих максимальные значения

Найти среднее арифметическое элементов матрицы, имеющих четные номера
пожалуйста помогите написать программу, заранее благодарю! для заданного массива X1, X2, ..., Xn...

В массиве Y(n) найти среднее арифметическое положительных элементов, имеющих четные номера
В массиве Y(n) найти среднее арифметическое положительных элементов, имеющих четные номера прога...

В массиве Y(n,m) найти среднее арифметическое положительных элементов, имеющих нечетные номера
В массиве Y(n,m) найти среднее арифметическое положительных элементов, имеющих нечетные номера ...

В массиве найти минимальное, максимальное и среднее арифметическое значение элементов
В массиве А найти минимальное, максимальное и среднее арифметическое значение элементов. Значение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.