Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
TopSecret96
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 28
#1

В одномерном массиве найти среднее значение среди всех элементов и вывести индексы нулевых элементов - Pascal ABC

25.05.2015, 23:31. Просмотров 270. Ответов 2
Метки нет (Все метки)

есть такой вот код, но что то мне подсказывает, что тут не правильно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
A:array[1..20] of integer;
S,n,i:integer;
begin
Readln(n);
for i:=1 to n do
  Readln(A[i]);
S:=0;
for i:=1 to n do
  S:=S+a[i];
Writeln('Sr=',S/n);
for i:=1 to n do
  if a[i]=0 then
    Writeln(i);
end.
среднее оно находит, но иногда нужно ввести три числа, а иногда 20, чтоб оно высчитало
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2015, 23:31
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В одномерном массиве найти среднее значение среди всех элементов и вывести индексы нулевых элементов (Pascal ABC):

Функции. Найти среднее арифметическое всех элементов с четными номерами и количество нулевых элементов в трех массивах. - Pascal
Заданы три одномерных массива R, U, W. Количество элементов каждого массива не превышает 25. Для каждого массива вычислить: - среднее...

Найти и вывести среднее значение среди элементов массива,которые делятся на 9 и больше,чем 3 - Pascal
1)Дан целочисленный массив из 20 элементов.Элементы массива могут принимать целые значения от -50 до 50.Составить программу ,позволяющую...

В одномерном массиве найти сумму отрицательных, количество положительных и произведение не нулевых элементов - Pascal
Всем доброго времени суток. Задали сделать лабораторные работы, но вот незадача, простые я смог выполнить а с массивом и так и сяк, не как...

В одномерном массиве найти: количество нулевых элементов, сумму положительных, поменять местами второй - Pascal
Пожалуйста помогите очень нужна помощь Задание: В одномерном массиве x(15) найти: кол-во нулевых элементов,сумму...

Найти Min и Max среди нечетных элементов и их порядковые индексы в массиве - Pascal ABC
Задача №18. В массиве A, заполненном случайными числами, найти Min и Max среди нечетных элементов и их порядковые индексы в массиве. ...

Найти Min и Max среди четных элементов и их порядковые индексы в массиве - Pascal ABC
Помогите решить 2 задачки на одномерные массивы,задали на дом,а я в них не могу разобраться 1. В массиве A, заполненном случайными...

2
erl27
890 / 739 / 432
Регистрация: 06.09.2013
Сообщений: 1,561
26.05.2015, 22:31 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от TopSecret96 Посмотреть сообщение
но иногда нужно ввести три числа, а иногда 20
Чисел A[i] нужно вводить столько, каково число n - количество чисел в массиве.
1
TopSecret96
0 / 0 / 0
Регистрация: 28.04.2015
Сообщений: 28
27.05.2015, 00:28  [ТС] #3
теперь понял, первым числом я n задаю...спасибо большое!)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2015, 00:28
Привет! Вот еще темы с ответами:

В массиве найти минимальный элемент массива среди положительных элементов, имеющих чётные индексы - Pascal ABC
В массиве X (-4,5;-7,4;-3,7;12,9;-5,7;21,3;8,6;1,5;2,6;2,1;-5,8;5,4;-3,8) найти минимальный элемент массива среди положительных элементов,...

Вычислить сумму элементов главной диагонали, минимальный элемент и его индексы среди всех элементов массива - Pascal ABC
В массиве размерностью 5*5, заполненного случайными числами от 100 до 200, вычислить сумму элементов главной диагонали, минимальный элемент...

Найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов - Pascal
дан масcив в котором N чисел. найти сумму отрицательных элементов массива вывести на экран индексы всех отрицательных элементов

Найти максимальное значение матрицы и индексы всех элементов, равных ему - Pascal
В целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов, равных ему.


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

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

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