Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 26.12.2012
Сообщений: 17
1

Сформировать новый массив из неотрицательных элементов массива В, найти среднее арифметическое элементов нового массива

03.01.2013, 16:10. Показов 1613. Ответов 1
Метки нет (Все метки)

всем здарсте ребят, сижу на зачете... такая задачка - задан массив В(20). Сформировать новый массив из неотрицательных элементов массива В, найти среднее арифметическое элементов нового массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.01.2013, 16:10
Ответы с готовыми решениями:

Найти среднее арифметическое всех отрицательных элементов массива, а из оставшихся сформировать новый массив
В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из...

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

Дан массив A(N, M). Найти среднее арифметическое элементов находящихся между max и min элементов массива
Дан массив A(N, M). Найти среднее арифметическое элементов находящихся между max и min элементов...

Массив B из элементов массива A, которые превышают среднее арифметическое значение элементов массива A
Дан одномерный массив вещественных чисел A(n), где n<= 50. Составить программу, формирующую новый...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
03.01.2013, 16:22 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
25
26
27
28
29
30
31
32
33
34
35
uses crt;
const n=20;
var a,b:array[1..n] of integer;
    m,i:integer;
    s:real;
begin
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
m:=0;
s:=0;
for i:=1 to n do
if a[i]>=0 then
 begin
  m:=m+1;
  b[m]:=a[i];
  s:=s+b[m];
 end;
if m=0 then write('Нет неотрицательных элементов')
else
 begin
  writeln('Массив В:');
  for i:=1 to m do
  write(b[i]:4);
  writeln;
  write('Среднее=',s/m:0:2);
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.01.2013, 16:22

Найти среднее арифметическое всех неотрицательных элементов массива. Исправить ошибку
Найти среднее арифметическое всех неотрицательных элементов массива. программа не проходит тест,...

Найти среднее арифметическое элементов массива без учета минимального и максимального элементов массива
Доброго времени суток! Помогите написать программу, которая вычисляет среднее арифметическое...

Заполнить массив и найти среднее арифметическое всех элементов массива
Здравствуйте, очень нужно сделать 2 задачи до 17-00 по мск 1-заполнить массив из 10 элементов и...

Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2
Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и...


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

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

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