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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2012, 15:17   #1
Bourn15
Новичок
Джуниор
 
Регистрация: 30.05.2012
Сообщений: 1
По умолчанию Массивы, процедуры (Pascal)

uses crt;
var a: array [1..50] of integer;
i,j,n: integer;
t,sum,kolich: integer;
srArf: real;


begin clrscr;
write('n = '); readln(n);
write('Vvodite chislo: ');
for i:=1 to n do read(a[i]);

for i:=1 to n-1 do
for j:=i+1 to n do
if a[j] < a[i] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
begin
sum:=0 ;
kolich:=0;
for i:=1 to n do
if a[i]<0 then
begin
sum:=sum+a[i] ;
kolich:=kolich+1;
end;
if kolich>0 then
srArf:=sum/kolich
else writeln('chisel, ydov uslov, net');
writeln('srednee arif= ',srArf:4:2);
write('Otsortorovannyi po vozrastaniu massiv: ');
for i:=1 to n do write(a[i]:4);
writeln;
end;
readkey;

По програме сделать задания:
-Сортировка в виде процедуры с параметром;
-Вычесление средне ариф в виде функции;
-записать в текстовый файл отрицательные числа.


Зарание спасибо
Bourn15 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массивы.Процедуры Волк Паскаль, Turbo Pascal, PascalABC.NET 9 29.12.2011 02:07
Процедуры массивы 1gorb Паскаль, Turbo Pascal, PascalABC.NET 0 22.12.2010 22:01
Массивы и процедуры Кэйт Паскаль, Turbo Pascal, PascalABC.NET 5 19.04.2010 19:58
Двумерные массивы и процедуры F(r)an!k Фриланс 12 30.03.2010 17:46
Pascal. Массивы, процедуры. midletarket Помощь студентам 14 31.05.2009 22:24