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

Turbo Pascal

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

Среднее арифметическое элементов массива, оканчивающихся на 6 - Turbo Pascal

22.05.2012, 23:18. Просмотров 1152. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите алгоритм, позволяющий найти и вывести среднее арифметическое элементов массива, которые оканчиваются на цифру 6 и имеют чётное значение.
Прошу помочь гуру программирования. Интересует совместимая запись среднего арифметического и окончания на 6-ку.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 23:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Среднее арифметическое элементов массива, оканчивающихся на 6 (Turbo Pascal):

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

Подсчитать число элементов массива А[n], превосходящих среднее арифметическое элементов этого массива. - Turbo Pascal
2 задача. подсчитать число строк массива A, в которых имеется два нулевых элемента.

Среднее арифметическое элементов массива - Turbo Pascal
Найти среднее арифметическое элементов А(а1, а2,...,а10), предшествующих первому отрицательному элементу а. После того как заполнил...

На место наименьшего элемента массива записать среднее арифметическое всех элементов массива - Turbo Pascal
дан массив V(b1, b2, ..., b30). В элемент bi, содержащий наименьшее значение, записать среднее арифметическое значение элементов массива.

Замена всех отрицательных элементов на среднее арифметическое значение элементов массива - Turbo Pascal
Ввести двумерный массив А(N,N).Составить программу замены всех отрицатель-ных элементов на среднее арифметическое значение элементов ...

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива - Turbo Pascal
Всем приветик) Извините что так много задачек, но поймите сложновато мне с программированием(( за конфетку ;) 1)Задан массив...

1
ermolay
3430 / 2369 / 686
Регистрация: 04.12.2011
Сообщений: 3,965
23.05.2012, 10:02 #2
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
const
  n=30;
var
  a: array[1..n] of integer;
  i,k,sum: integer;
begin
  randomize;
  k:=0; sum:=0;
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(1001);
    write(a[i],' ');
    if (a[i] mod 2=0)and(a[i] mod 10=6) then
    begin
      sum:=sum+a[i];
      inc(k);
    end;
  end;
  writeln;
  writeln('Среднее арифметическое четных чисел,');
  writeln('заканчивающихся на 6: ',sum/k:7:2);
  readln;
end.
только я не гуру, да он тут и не нужен, задача не очень сложная..

Цитата Сообщение от Tekxxx Посмотреть сообщение
оканчиваются на цифру 6 и имеют чётное значение
кто задание придумывал?
зы, сделал по заданию..
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 10:02
Привет! Вот еще темы с ответами:

Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно - Turbo Pascal
Дан массив размера N и целые числа K и L(1<K<=L<=N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K...

Найти среднее арифметическое положительных элементов массива и умножить на него все элементы массива - Turbo Pascal
С клавиатуры вводится произвольный одномерный массив типа Integer (не более 10 элементов), после чего делается его контрольный вывод. Найти...

Определить, больше ли среднее арифметическое элементов массива произведения элементов его главной диагонали - Turbo Pascal
Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов, находящихся...

Составить программу замены всех отрицательных элементов на среднее арифметическое значение элементов массива - Turbo Pascal
Ввести двумерный массив А (N,N) . составить программу замены всех отрицательных элементов на среднее арифметическое значение элементов...


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

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

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