Question

ПОДСКАЖИТЕ ПОЖАЛУЙСТА(МАССИВ В ПАСКАЛЕ)!Дана задача :Дан массив 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.ПОДСКАЖИТЕ ПОЖАЛУЙСТА! КАК ВЫВЕСТИ НА ЭКРАН ПЕРВОНАЧАЛЬНЫЙ МАССИВ, в добавок к этому решению???

Answer 1

Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и  объявить массивы можно как целые. Но это мелочи, не обязательные.
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.