Консультация № 181466
20.12.2010, 01:03
0.00 руб.
0 4 1
Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Даны натуральное число n , действительные числа a1,...,an . Вычислить:

Обсуждение

Неизвестный
20.12.2010, 01:05
общий
Чуть позжа сегодня возьмусь за эту задачу! Уже занят вашим вопросом Иван № 181465
Неизвестный
20.12.2010, 01:52
общий
это ответ
Здравствуйте, иван!
Вот код для вашего вопроса!
Что непонятно то смело спрашивайте!
Удачи!!

Приложение:
program p181466;
const n=4;
var a:array [1..n] of real;
summ:real;
i:byte;
begin
{ввод действительных чисел a1..an}
for i:=1 to n do
read(a[i]);
{вычисление суммы}
summ:=0;
for i:=1 to n do
begin
summ:=summ+SQR(SQRT(ABS(a[i]))-a[i]);
end;
{вывод значения summ на экран как есть без форматирования(точности)}
Write('Сумма равна s=',summ);
readln;
readln;
end.
давно
Мастер-Эксперт
425
4118
20.12.2010, 11:19
общий
А если n будет много? Застрелитесь вводить. Лучше использовать для ввода генератор случайных чисел.
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
Неизвестный
20.12.2010, 19:27
общий
Ну это верно. Но автор вопроса не указал как получаем числа в этот массив. Поэтому этот ответ уместен как раз в учебных целях.
Если необходимо внесу изменения небольшие)
Форма ответа