Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Влад12345
0 / 0 / 0
Регистрация: 25.10.2013
Сообщений: 31
#1

Найти среднее арифметическое всех элементов массива - Pascal ABC

25.10.2013, 18:03. Просмотров 509. Ответов 2
Метки нет (Все метки)

ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива 4 15 3 10 14 напишите пожалуйста в паскале
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2013, 18:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти среднее арифметическое всех элементов массива (Pascal ABC):

Найти среднее арифметическое всех элементов массива
ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех...

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

Найти среднее арифметическое всех элементов массива
Доброго времени суток! Помогите, пожалуйста, решить задачу. Вот условие: 1)...

Найти среднее арифметическое всех отрицательных элементов массива
Дан одномерный массив из 10 элементов заполненный случайными целыми числами из...

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

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

2
ildwine
Супер-модератор
2978 / 1853 / 1223
Регистрация: 04.03.2013
Сообщений: 4,557
Записей в блоге: 1
25.10.2013, 18:08 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a : array[1..5] of real;
  s : real;
  i : byte;
begin
  s := 0;
  for i := 1 to 5 do
  begin
    write('введите ', i, ' элемент: ');
    readln(a[i]);
    s := s + a[i]
  end;
  for i := 1 to 5 do
    write(a[i]:6:2);
  writeln;
  writeln('среднее арифметическое = ', (s / 5):6:2)
end.
1
spectrum988
0 / 0 / 1
Регистрация: 24.10.2013
Сообщений: 47
26.10.2013, 02:18 #3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот смотри:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program spectrum988;
const n=5;
var F:array[1..n] of integer;
i,summa:integer;
cs:real;
begin
summa:=0;
for i:=1 to n do
  begin
  write('Введите F[',i,']= ');
  readln(F[i]);
  end;
  for i:=1 to n do
  begin
summa:=summa+F[i];
cs:=summa/n;
  end;
  writeln('Cумма элементов массива:',summa);
  writeln('Cреднее значение: ',cs);
end.
Только если быть точнее, ср.значение суммы элементов массива = 9.2
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 02:18
Привет! Вот еще темы с решениями:

Найти среднее арифметическое чисел всех элементов массива
Найти среднее арифметическое чисел всех элементов массива.

Найти число m – среднее арифметическое всех элементов массива
2) Найти число m – среднее арифметическое всех элементов массива, значение...

Найти и вывести среднее арифметическое всех элементов массива
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать...

Ввести массив из 5 элементов, найти среднее арифметическое всех элементов массива.
Здравствуйте! Помогите пожалуйста решить задачу: 1)Ввести массив из 5...


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

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

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