Подскажите (массив в паскале)! дана : дан массив a вещественного типа, содержащий 20 положительных и отрицательных элементов. сформировать массив b из положительных элементов массива a, имеющих четный индекс. найти сумму квадратов элементов нового массива. есть решение: 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. подскажите ! как вывести на экран первоначальный массив, в добавок к этому
var
a, b: array[1..20]of integer;
i, s,n: integer;
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
if (a[i] > 0) and (i mod 2 = 0) then
begin
n:=n+1;
b[n]:= a[i];
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.