IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

 
Closed Topic Открыть новую тему 
> Массивы, turbo pascal
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Артур

Репутация: -  0  +


Дана задача:
Массивы
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
•Сумму положительных элементов массива.
•Произведение элементов массива, расположенных между максимальным по мо¬дулю и минимальным по модулю элементами.
Упорядочить элементы массива по убыванию.

Я наёшл сумму, min и max. А вот дальше не пойму как. Подскажите пожалуйста smile.gif

program massiv;
var
a:array[1..10] of integer;
z,s,i,y,n,min,max,nommin,nommax:integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;
for i:=1 to 10 do
if a[i]>0 then s:=s+a[i];

writeln(s);
readln;
max:=a[1];
nommax:=1;
for i:=1 to 10 do
if max<a[i] then
begin
max:=a[i];
nommax:=i;
end;
writeln('max=',max);
readln;

min:=a[i];
nommin:=1;
for i:=1 to 10 do
if min>a[i] then
begin
min:=a[i];
nommin:=i;
end;
writeln('min=',min);
readln;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Я вот тоже не пойму. Тебе что, форума "Задачи" мало для Турбо-Паскаля? Какого ... ты сюда-то задачи ДЛЯ ПАСКАЛЯ постишь???
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.12.2017 21:54
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"