Найти сумму квадратов всех ненулевых элементов одномерного массива - Turbo Pascal

Формулировка задачи:

Решите, пожалуйста. Задан одномерный массив A. Найти сумму квадратов всех его ненулевых элементов. Размерность массива 20. Заполнение массива осуществить случайными числами от -25 до 25

Код к задаче: «Найти сумму квадратов всех ненулевых элементов одномерного массива - Turbo Pascal»

textual
const
    N = 20;
    A = -25;
    B = 25;
var
    ar: Array[1..N] Of ShortInt;
    sum: Word;
    i: 1..N;
begin
    Randomize;
    Write('Исходный массив:');
    sum := 0;
    for i := 1 to N do
    begin
        ar[i] := Random(B - A + 1) + A;
        Write(ar[i]:4);
        Inc(sum, Sqr(ar[i]) * Ord(ar[i] <> 0));
    end;
    WriteLn;
    WriteLn('sum=', sum);
end.

13   голосов, оценка 4.308 из 5


СОХРАНИТЬ ССЫЛКУ