Универсеальный алгоритм)))(№7) - Программирование на языке Pascal - Программирование компьютерных систем - Каталог файлов - Добро пожаловать
fon
Выкл. снег
Главная » Файлы » Программирование компьютерных систем » Программирование на языке Pascal

Универсеальный алгоритм)))(№7)

Категория:
Программирование на языке Pascal
Комментариев:
0
Загрузок:
0
Автор:
Philosoph
Универсеальный алгоритм)))(№7)

МУниверсеальный алгоритм)))(№7)

Полное решение задачи

program univers;
var i,n, imin, imax,p :integer;
var s,min,max,k,k1,k2:integer;
var sr :real;
x:array[1..25] of integer;
begin
read(n);
for i:=1 to n do read(x[i]);
s:=0;
for i:=1 to n do s:=s+x[i];
k:=0;// общее
for i:=1 to n do inc(k);
k1:=0;// полжительные
k2:=0; // отрицательные
for i:=1 to n do if x[i]<0 then inc(k2);
P:=1;
for i:=1 to n do P:=p*x[i];
sr:=s/k;
max:=x[1];// максимум
for i:=2 to n do if x[i]>max then max:=x[i];
imax:=1;
for i:=2 to n do if x[i]>imax then imax:=i;
min:=x[1];
for i:=2 to n do if x[i]<min then min:=x[i];
imin:=1;
for i:=2 to n do if x[i]<imin then imin:=i;
write(k,' ',s,' ',k1,' ',k2, ' ',p,' ',sr,' ',max,' ',imax,' ',min,' ',imin   );
end.
//integer взят чтоб можно было использовать inc()
 


 

Добавил: Philosoph , скачали: 4

Сиды: 265
Пиры: 45
Общий размер: 0.7Kb
Общие сведения: 07.08.2016,23:01,Просмотров:59,Категория-Программирование на языке Pascal
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Популярные игры
Скачать игру Земля мертвых
Скачать игру Земля мертвых Загрузок: 30 Просмотров: 248 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Скачать игру TimeShift через торрент для пк
Скачать игру TimeShift через торрент для пк Загрузок: 28 Просмотров: 191 Добавил: sesin Дата: 17.08.2016
Скачать всё для юкоза бесплатно
Gladiator 2016 через торрент
Gladiator 2016 через торрент Загрузок: 13 Просмотров: 272 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Devil May Cry 3 через торрент
Скачать Devil May Cry 3 через торрент Загрузок: 25 Просмотров: 191 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Скачать Batman: Arkham Knight (2015) скачать торрент
Скачать Batman: Arkham Knight (2015) скачать торрент Загрузок: 10 Просмотров: 181 Добавил: sesin Дата: 02.06.2016
Скачать всё для юкоза бесплатно
Мини-чат

500
text
Друзья сайта

Пользователи

0

Савич1999

Олег Савич

Пользователи

0

lipin2103

stib lipin2103

Пользователи

0

VitaAseeva

Виктория Асеева

Пользователи

0

xmen

артем гоша

Пользователи

0

alaska

Денис Ли

Для того что стать друзьями сайта необходимо авторизоваться  на сайте .

Вы получаете преимущества  .

1)Бесплатные отправки подарков пользователям .

2)Отправка личных смс пользователям .

3)Отключение рекламы на сайте .

Популярные фильмы

Грязь 2014 скачать через торрент Загрузок: 1 Просмотров: 16 Добавил: sesin Дата: 28.11.2016

2 спальни, 1 ванная (2014) смотреть онлайн Загрузок: 1 Просмотров: 9 Добавил: sesin Дата: 28.11.2016

Скачать фильм Абатуар. Лабиринт страха (2016) смотреть онлайн Загрузок: 1 Просмотров: 10 Добавил: sesin Дата: 28.11.2016

Скачать фильм Похитители прошлого 1999 год Загрузок: 4 Просмотров: 44 Добавил: sesin Дата: 07.10.2016

Скачать Детсадовский полицейский 2 через торрент Загрузок: 3 Просмотров: 60 Добавил: sesin Дата: 03.09.2016
Вход на сайт
,