Ребята помогите пожалуйста сделать программку через ABC Pascal. Дано естественное число

Ребята помогите пожалуйста сделать программку через ABC Pascal. Дано естественное число n,действительные числа а1,а2,....аn.Действительное число а.вычислить:а1 в квадрате+а2 в квадрате+а3 в квадрате+....+аm в квадрате.Безотлагательно,буду очень признателен.

Задать свой вопрос
1 ответ
Просто сумма квадратов?

var
 i, n: integer;
 a, s: real;
begin 
 s := 0;
 read(n);
 for i := 1 to n do
   begin
   read(a);
   s := s + a * a
   end;
 write(s)
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт