Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 21.07.2013
Сообщений: 109
1

Найти среднее арифметическое в целочисленном массиве, среди кратных трем положительных элементов

02.04.2015, 17:40. Просмотров 544. Ответов 3
Метки нет (Все метки)

Delphi
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
program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array[1..40] of integer;
    i,n,s,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Введите целочисленный массив: ');
  readln(n);
  writeln('Введите ', n,' элементов массива: ');
  for i:=1 to n do
    read(a[i]);
    readln;
    writeln('Исходный массив');
    for i:= 1 to n do
      if (i mod 10)=0 then writeln(a[i]:5)
      else write(a[i]:5);
    writeln;
    k:=0;
    s:=0;
    for i := 1 to n do
      if (a[i] mod 3)=0 then begin
        k:=k+1;
        s:=s+a[i];
      end;
     if k=0 then
      writeln('Элементов, удовлетворяющих условию, нет')
     else writeln('Среднее арифметическое', k:3,' элементов, кратных 3=',(s/k):7:2);
     readln;
end.
Добавлено через 1 час 59 минут
намудрил, по моему. при компиляции что-то непонятное выходит
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2015, 17:40
Ответы с готовыми решениями:

Найти среднее арифметическое положительных кратных трем элементов массива, расположенных до минимального элемента
Привет всем помогите с задачей на С++. Найти среднее арифметическое положительных кратных трем...

Среди положительных элементов, стоящих на местах кратных трем найти максимум
Надеюсь, кто-то поможет))

В заданном массиве из N элементов найти наименьший среди элементов кратных трем
В заданном массиве из N элементов найти наименьший среди элементов кратных трем, расположенных до...

Среди положительных элементов вектора найти среднее арифметическое а среди неположительных наибоьшее значение
с помощью датчика случайных чисел заполнить вещественный вектор a и среди положительных элементов...

3
136 / 134 / 100
Регистрация: 10.03.2015
Сообщений: 547
02.04.2015, 19:40 2
Что делает етот код?
Delphi
1
2
3
for i:= 1 to n do
      if (i mod 10)=0 then writeln(a[i]:5)
      else write(a[i]:5);
0
1 / 1 / 1
Регистрация: 21.07.2013
Сообщений: 109
02.04.2015, 19:46  [ТС] 3
ROS88, ээм.. не знаю. может на автомате написал.
0
пофигист широкого профиля
4246 / 2775 / 785
Регистрация: 15.07.2013
Сообщений: 16,111
02.04.2015, 19:58 4
Цитата Сообщение от ROS88 Посмотреть сообщение
Что делает етот код?
Выводит массив на экран строчками по 10 элементов.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2015, 19:58

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

Найти среднее арифметическое количеств положительных, кратных 5 элементов массивов
Посмотрите пожалуйста. Может, что то изменить нужно. Потому что некоторые задачи писал, так чтоб...

Найти среднее арифметическое чисел, кратных трём
Написать программу, помогающую найти среднее арифметическое чисел, кратных трём. На вход программа...

Найти среднее арифметическое среди положительных элементов главной диагонали
Дана квадратная матрица порядка n(n=5). Найти среднее арифметическое среди положительных элементов...

В массиве n=10 из отрезка [-15;15] найти и вывести на экран среднее арифметическое элементов кратных четырем
В массиве n=10 из отрезка найти и вывести на экран среднее арифметическое элементов кратных...

Найти среднее арифметическое положительных и отрицательных элементов среди четных строк массива
помогите, написать программу! по заданию: Дан массив, Х(N,M) . найти среднее арифметическое...

В каждом массиве найти среднее арифметическое положительных элементов
Товарищи, может быть кто-нибудь сможет решить данную задачку!!! Очень нужно! Ввести двумерные...


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

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

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