Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2015, 00:31   #1
kostyan199731
 
Регистрация: 18.03.2015
Сообщений: 9
По умолчанию Написать подпрограмму поиска среднего арифметического элементов массива. Для проверки подпрограммы создать драйвер, в котором выпо

Написать подпрограмму поиска среднего арифметического элементов массива. Для проверки
подпрограммы создать драйвер, в котором выполнить ввод массива, замену средним арифметическим
элементов массива, значение которых меньше среднего арифметического, вывод массива.
P.S. Сделайте, пожалуйста, так, чтобы программа была без рандома, то есть чтобы самому нужно было забивать значения. Заранее огромное спасибо!!!!!!!!!
kostyan199731 вне форума Ответить с цитированием
Старый 16.04.2015, 06:34   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Для проверки подпрограммы создать драйвер
Какой драйвер? О_о
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.04.2015, 08:21   #3
knight
Дон Кихот
Форумчанин
 
Аватар для knight
 
Регистрация: 17.01.2008
Сообщений: 130
По умолчанию

Код:
const nmax=10;
type mas=array [1..nmax] of integer;
var a: mas; n: byte; ssrr: real;
 
procedure GenPrint (var z: mas; var r: byte);
begin
repeat
write('Количество элементов массива, не более ',nmax,', n='); readln(r);
until r in [1..nmax];
for var i:=1 to r do
  begin
  z[i]:=random(199)-99;
  write(z[i],' ');
  end;
 writeln;
end;
 
function Sar(z: mas; r: byte): real;
var sr: longint;
begin
sr:=0;
for var i:=1 to r do
  inc(sr,z[i]);
Sar:=sr/r;
end;
 
begin
GenPrint (a,n);
writeln('Среднее арифметическое элементов массива=',Sar(a,n):0:3);
end.
ЗЫ Насчет драйвера не знаю, что-то вы тут напутали

Последний раз редактировалось knight; 16.04.2015 в 08:24.
knight вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать метод класса для удаления элементов массива больше среднего арифметического С++ Елена Н. Помощь студентам 2 28.11.2013 16:19
Программа для вычисления среднего арифметического и геометрического массива чисел Defalliance Общие вопросы C/C++ 1 04.12.2012 21:57
Вычисление среднего арифметического элементов массива. Не выполняется команда div. Ibanez Wizard Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 28.03.2011 16:54
Вычисление среднего арифметического положительных элементов. Adrenalin4 Visual C++ 18 01.11.2010 17:11