|
Вопрос # 3 587/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!Дана целочисловая таблица.Найти количество елементов больших за среднее арифметичиское всех ее елементов. Заплутался
и немогу найти среднее арифметичиское. Напишите на Delphi.
Заранее спасибо!
 |
Вопрос задал: Дмитриев Сергей Анатольевич (статус: Посетитель)
Вопрос отправлен: 26 декабря 2009, 20:26
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Жикльор
Здравствуйте, Дмитриев Сергей Анатолильевич!
Вот сделал нужную вам программу с матрицей. Код в приложении:
Приложение: Переключить в обычный режим- program Project2;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- var
- mas: array [1..4,1..4] of integer;
- sa: real;
- i,j,sumael: integer;
- begin
- Randomize;
- for i:=1 to 4 do
- for j:=1 to 4 do
- mas[i,j]:=Random(5);
- writeln('Masiv:');
- for i:=1 to 4 do
- begin
- for j:=1 to 4 do
- write(mas[i,j],' ');
- writeln;
- end;
- sumael:=0;
- for i:=1 to 4 do
- for j:=1 to 4 do
- sumael:=sumael + mas[i,j];
- sa:=sumael/16;
- writeln;
- writeln('Seredne arithmetichne:');
- writeln(sa:0:5);
- writeln;
- writeln('Chisla bilshi za seredne arithmetichne:');
- for i:=1 to 4 do
- for j:=1 to 4 do
- if mas[i,j] > sa then write(mas[i,j],' ');
- readln;
- end.
-
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 26 декабря 2009, 21:47
Оценка за ответ: 5
Комментарий к оценке: спасибо
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 26 декабря 2009, 21:28; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 20:57 [#1]:
Сессия?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Жикльор (статус: 5-ый класс), 26 декабря 2009, 21:28 [#2]:
Цитата (min@y™):
Сессия?
Конечно сессия! Вопросы повалили с программы ВУЗов.Цитата (Дмитриев Сергей Анатольевич):
Дана таблица
Так таблица или матрица, а то прошлый вопрос был с матрицами?
Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
