Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов....

Question

Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS , имеющих четный индекс. Найти сумму квадратов элементов нового массива.

Answer 1

Var
    mas, c: array[1..20]of real;
    i, c_n: integer;
    s: real;

begin
    randomize;
    for i := 1 to 20 do
    begin
        mas[i] := random(100) - 50;
        if (mas[i] > 0) and (i mod 2 = 0) then begin
            c_n := c_n + 1;
            c[c_n] := mas[i];
            write(c[c_n], ' ');
            s := s + c[c_n] * c[c_n];
        end;
    end;
    writeln();
    writeln('S = ', s);
end.