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

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

30-06-2017 12:37 Просмотры: 2
Ответы (1)
Оляна Лутфуллина
+8
2017-06-30 21:11:38

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.