Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 06.01.2010
Сообщений: 4
1

В массиве элементы стоящие на нечетных местах разделить на среднее арифметическое положительных элементов.

06.01.2010, 14:04. Показов 911. Ответов 1
Метки нет (Все метки)

В роде бы не сложные задачи, но немогу разобраться... вторую вообще немогу понять((( Напишите пожалуйста код к задачам




1) В массиве A (9) элементы стоящие на нечетных местах разделить на среднее арифметическое положительных элементов.

2) В массиве C (10) вывести элементы, которые расположены через MIN элементом, если он первый, то вывести сообщение об этом.



Заранее ОГРОМНОЕ СПАСИБО!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2010, 14:04
Ответы с готовыми решениями:

Разделить элементы главной диагонали на среднее арифметическое положительных элементов заданного столбца
С клавиатуры вводится произвольная квадратная матрица (не более 5х5), после чего делается ее...

В массиве поменять местами соседние элементы, стоящие на нечетных местах со стоящими на четных
уважаемые программисты помогите решить пару детских задач : 1`) Дан массив положительных чисел....

В одномерном массиве поменять местами соседние элементы, стоящие на четных и нечетных местах
В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с...

Стоящие до минимального элемента, разделить на среднее арифметическое ненулевых элементов данного массива
Ввести одномерный массив X(N) (N<=30) целых чисел. Все элементы его, стоящие до минимального...

1
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,107
06.01.2010, 14:15 2
Лучший ответ Сообщение было отмечено Russlan как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
k:=0;sm:=0;
for i:=1 to 9 do
if a[i]>0 then
  begin
   k:=k+1;
   sm:=sm+a[i];
  end;
if k=0 then write('В массиве нет положительных элементов!')
else
 begin
   sm:=sm/k;
   for i:=1 to n do
   if i mod 2=1 then a[i]:=a[i]/sm;
   for i:=1 to n do
   write(a[i]:5:2);
 end;
readln
end.
Добавлено через 2 минуты
Во второй опечатка, нужно
которые расположены перед MIN элементом
Находите номер минимального и считаете сумму от 1 до imin-1.
Примеров на форуме куча.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2010, 14:15

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных
Буду очень признателен:) "В заданном одномерном массиве поменять местами соседние элементы,...

Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах
дан вектор, имеющий n (1≤n≥100) целых элементов. напиши программу, которая находит среднее...

Элементы массива, стоящие до минимального элемента, разделить на ср. арифметическое элементов кратных трем
Ввести одномерный массив X(N) (N<=30) целых чисел. Все элементы его, стоящие до минимального...

Удалить все четные элементы, стоящие на нечетных местах
Удалить все четные элементы, стоящие на нечетных местах.


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

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

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