Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные. 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.
type cl = class
a: integer;
constructor create(b: integer);
procedure setval(b: integer);
function getval: integer;
procedure sq;
end;
constructor cl.create(b: integer);
begin
a : = b;
end;
procedure cl.setval(b: integer);
begin
a : = b;
end;
function cl.getval: integer;
begin
getval : = a;
end;
procedure cl.sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('error');
end;
var
obj: cl;
a : integer;
begin
write('a = ');
readln(a);
obj : = cl.create(a);
obj.sq;
readln;
obj.destroy;
end.