![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 30.05.2012
Сообщений: 1
|
![]()
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; По програме сделать задания: -Сортировка в виде процедуры с параметром; -Вычесление средне ариф в виде функции; -записать в текстовый файл отрицательные числа. ![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Массивы.Процедуры | Волк | Паскаль, 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 |