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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2018, 17:37   #1
Ifhdufhdi
Новичок
Джуниор
 
Регистрация: 17.10.2018
Сообщений: 2
По умолчанию Дан одномерный массив, длину массива задаёт пользователь. Вычислить сумму кубов тех чисел, модуль которых превышает значение 15

Код:
program pr_5; 
uses crt; 
var 
n,i,v:integer; 
a:array[1..50] of real; 
summa:real; 
begin 
v:=1; 
randomize; 
repeat 
clrscr; 
write('Введите длину массива : '); 
readln(n); 
writeln('Исходный массив: '); 
for i:=1 to n do 
begin 
a[i]:=random*20-10; 
write(a[i]:10:2); 
if(abs(a[i])>15) then 
summa:=summa+a[i]*a[i]*a[i]; 
end; 
writeln; 
writeln('Сумма = ' , summa:10:4); 
write('Перерасчитать? Если да, нажмите 1, если нет то - 0'); 
readln(v); 
until(v=0); 
end.
Пожалуйста, оформляйте Ваш код согласно правилам.

Подскажите, пожалуйста, что не так ?

Последний раз редактировалось Вадим Мошев; 21.10.2018 в 17:48.
Ifhdufhdi вне форума Ответить с цитированием
Старый 22.10.2018, 09:34   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Ifhdufhdi Посмотреть сообщение
Подскажите, пожалуйста, что не так ?
формула
Цитата:
Сообщение от Ifhdufhdi Посмотреть сообщение
random*20-10
даст числа от -10 (включая) и до 9 (включительно)
Откуда возьмутся числа "модуль которых превышает значение 15" ?!!

сделайте, хотя бы
Код:
a[i]:=random*41-20;
и ещё. переменную summa в начале цикла нужно ОБЯЗАТЕЛЬНО ОБНУЛИТЬ!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
(Pascal) Дан одномерный массив чисел. Определите сумму его элементов Godnub Помощь студентам 1 04.12.2016 10:49
Дан одномерный массив чисел. Определите сумму его элементов(PascalABC.net) Godnub Помощь студентам 3 29.11.2016 16:55
одномерный массив. найти номера тех элементов массива, значения которых совпадают с числом 12 (Delphi) Daniyar22 Помощь студентам 6 20.05.2014 12:54
Java: Дан двумерный массив чисел А размером 6х6 и одномерный массив Х из 6-ти чисел. Заменить первые три строки массива A vikysha55 Помощь студентам 1 16.04.2014 10:50
Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из полученных значений сформировать одномерный массив. darwin1 Паскаль, Turbo Pascal, PascalABC.NET 3 16.03.2014 13:31