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

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

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2016, 08:06   #1
martofpain
Пользователь
 
Регистрация: 15.03.2016
Сообщений: 36
По умолчанию дан произвольный массив R размерностью

дан произвольный массив R размерностью n. найти сумму элементов массива R, а так же сумму корней элементов массива R. Исходные данные взять самостоятельно.
Проблема в том что надо использовать процедуру или функцию.
я написал но без них. А переделать не понимаю как
Помогите
вот код
Код:
var 
min, max, sum:REAL; 
skk : real; 
n,t,i, imin, imax:integer; 
a:array[1..20] of integer; 
begin 
write('Введите размерность массива: '); readln(n); 
for i:= 1 to N do 
begin 
a[i]:=random(20)-10; 
write(a[i]:4); 
end; 
writeln; 
min := a[1]; imin:=1; 
for i:= 1 to N do 
begin 
if a[i] < min then 
begin 
min := a[i]; 
imin := i; 
end; 
end; 
max := a[1]; imax:=1; 
for i:= 1 to N do 
begin 
if a[i] > max then 
begin 
max := a[i]; 
imax := i; 
end; 
end; 
if imin>=imax then 
begin 
t:=imin; 
imin:=imax; 
imax:=t; 
end; 
 
//отвечает за сумму
sum := 0; 
for i:= imin to imax do 
begin 
sum := sum + a[i]; 
end; 
 
//отвечает за сумму кв корней
for i:= imin to imax do 
begin 
skk:=skk+sqr(a[i]); 
end; 
 
writeln('Сумма квадратных корней элементов массива ',skk); 
writeln('Сумма ',sum); 
end.
martofpain вне форума Ответить с цитированием
Старый 28.08.2016, 08:11   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Цитата:
Проблема в том что надо использовать процедуру или функцию.
я написал но без них. А переделать не понимаю как
Напишите процедуру/функцию, в которую перенесите весь код суммирования, а в основном теле поставьте ее вызов.
p51x вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа в Паскале: Дан одномерный массив С размерностью N. Переставить местами первый и последний элемент массива, если... hars1 Паскаль, Turbo Pascal, PascalABC.NET 7 19.03.2014 17:30
Дан массив размерностью M*N. В каждой строке, где первый элемент больше всех остальных, увеличить все элементы на 10. (С) Kirillgr Помощь студентам 6 02.02.2014 22:25
Дан одномерный массив размерностью N Maksus-Mks Паскаль, Turbo Pascal, PascalABC.NET 3 17.12.2012 14:36
Дан вещественный массив размерностью m*n.... Александра С. Microsoft Office Word 2 17.03.2012 22:28
Дан двумерный массив размерностью n*m ValeriySergeevich Помощь студентам 4 16.01.2011 13:13