Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 5
1

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

17.12.2013, 17:47. Просмотров 1150. Ответов 1
Метки нет (Все метки)

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

P.S. Помогите пожалуйста. Текст программы нужен.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 17:47
Ответы с готовыми решениями:

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

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

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

Найти количество элементов массива, абсолютное значение которых больше среднего арифметического
Задан целочисленный массив, состоящий из 10 эелементов.Найти кол-во элементов, абсолютное значение...

1
89 / 69 / 82
Регистрация: 18.11.2013
Сообщений: 113
17.12.2013, 18:14 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
uses crt;
const a=4;
b=4;
var
  mas: array [1..a,1..b] of integer;
  k,i,j: integer;
  s: real;
begin
write ('Ñàì ìàññèâ');
writeln;
for i:=1 to a do
for j:=1 to b do
mas[i,j]:=random(100);
for i:=1 to a do
begin
for j:=1 to b do
begin
s:=s+mas[i,j];
write (mas[i,j]:4);
end;
writeln;
end;
s:=s/(a*b);
writeln('Ñðåäíåå àðèôìåòè÷åñêîå ìàññèâà = ', s);
for i:=1 to a do
for j:=1 to b do
if mas[i,j]>s then begin
writeln('Ýëåìåíò = ',mas[i,j],' , íîìåð ñòîëáöà êîòîðîãî = ',j,'  è íîìåð ñòðîêè ',i,' áîëüøå ñðåäíåå àðèôìåòè÷åñêîãî');
k:=k+1;
end;
writeln('Êîë-âî ýëåìåíòîâ áîëüøå ñðåäíåå àðèôìåòè÷åñêîãî = ',k);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2013, 18:14

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

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

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

Найти количество элементов массива, абсолютное значение которых больше среднего арифметического
Задан целочисленный массив , состоящий из 11 элементов . Найти количество элементов , абсолютное...

Найти количество элементов массива, абсолютное значение которых больше среднего арифметического
Задан целочисленный массив, состоящий из 11 элементов. Найти количество элементов, абсолютное...


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

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

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